:c-type DIRENT #S(C-STRUCT-INFO NAME DIRENT SLOTS (#S(C-STRUCT-SLOT NAME OFFSET C-NAME "OFFSET" TYPE INT) #S(C-STRUCT-SLOT NAME FILENO C-NAME "FILENO" TYPE INT) #S(C-STRUCT-SLOT NAME RECLEN C-NAME "RECLEN" TYPE SHORT) #S(C-STRUCT-SLOT NAME NAMLEN C-NAME "NAMLEN" TYPE SHORT) #S(C-STRUCT-SLOT NAME NAME C-NAME "NAME" TYPE (ARRAY CHAR 256))))
:c-type DIRDESC #S(C-STRUCT-INFO NAME DIRDESC SLOTS (#S(C-STRUCT-SLOT NAME FILE-DESC C-NAME "FILE_2DDESC" TYPE INT) #S(C-STRUCT-SLOT NAME LOC C-NAME "LOC" TYPE LONG) #S(C-STRUCT-SLOT NAME SIZE C-NAME "SIZE" TYPE LONG) #S(C-STRUCT-SLOT NAME BSIZE C-NAME "BSIZE" TYPE LONG) #S(C-STRUCT-SLOT NAME OFF C-NAME "OFF" TYPE LONG) #S(C-STRUCT-SLOT NAME DATA-BUFFER C-NAME "DATA_2DBUFFER" TYPE CHAR*)))
:c-type IOBUF #S(C-STRUCT-INFO NAME IOBUF SLOTS (#S(C-STRUCT-SLOT NAME COUNT C-NAME "COUNT" TYPE INT) #S(C-STRUCT-SLOT NAME POINTER C-NAME "POINTER" TYPE CHAR*) #S(C-STRUCT-SLOT NAME BASE C-NAME "BASE" TYPE CHAR*) #S(C-STRUCT-SLOT NAME BUFFER-SIZE C-NAME "BUFFER_2DSIZE" TYPE INT) #S(C-STRUCT-SLOT NAME FLAG C-NAME "FLAG" TYPE SHORT) #S(C-STRUCT-SLOT NAME FILE C-NAME "FILE" TYPE CHAR)))
:c-type DIRDESC-PTR (DIRDESC *)
:c-type FILE-PTR (IOBUF *)
:c-type DIRENT-PTR (DIRENT *)
:pinfo MAKE-SIMPLE-VECTOR (LEN ELEMENT-TYPE-TAG ELEMENT-SIZE INITIAL-ELEMENT INITIAL-CONTENTS) NIL (FIXNUM T T T T) NIL NIL NIL NIL T
:pinfo FORMAT-GET-TRAILING-SEGMENTS NIL NIL NIL NIL NIL NIL NIL T
:pinfo SET-INTERNAL-SIMPLE-CONDITION-FORMAT-STRING!@$ (S VALUE) NIL (SIMPLE-CONDITION T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INTERNAL-SIMPLE-CONDITION-FORMAT-STRING!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SET-TERMINAL-STREAM-COLUMN!@$ (S VALUE) NIL (TERMINAL-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TERMINAL-STREAM-COLUMN!@$ (SET-STRUCTURE-ELT S 15 VALUE))) NIL T T
:pinfo PACKAGE-ERROR--DUMMY-SLOT- (S) NIL (PACKAGE-ERROR) NIL (LAMBDA (S) (DECLARE) (BLOCK PACKAGE-ERROR--DUMMY-SLOT- (STRUCTURE-ELT S 1))) NIL T T
:pinfo LINE-NUMBER-STREAM-READ-BYTE-METHOD (S) NIL (LINE-NUMBER-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK LINE-NUMBER-STREAM-READ-BYTE-METHOD (STRUCTURE-ELT S 8))) NIL T T
:pinfo EXPAND-FLET/LABELS (FORM) NIL NIL NIL NIL NIL NIL T
:pinfo SET-ELT/LIST (L I VALUE) NIL NIL NIL (LAMBDA (L I VALUE) (DECLARE) (BLOCK SET-ELT/LIST (SET-NTH I L VALUE))) NIL T T
:pinfo DOT->&REST (LAMBDA-LIST) NIL NIL NIL NIL NIL NIL T
:pinfo FILE-NAMESTRING (FILE) NIL NIL NIL NIL NIL NIL T
:pinfo COPY-DISPATCH-MACRO-CHAR (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-RESTART-NAME!@$ (S VALUE) NIL (RESTART T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-RESTART-NAME!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo STRING-DOWNCASE/3 (S START END) NIL NIL NIL NIL NIL NIL T
:pinfo SET-SYNONYM-STREAM-OUTPUT-SINK!@$ (S VALUE) NIL (SYNONYM-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SYNONYM-STREAM-OUTPUT-SINK!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo SET-LINE-NUMBER-STREAM-OUTPUT-SINK!@$ (S VALUE) NIL (LINE-NUMBER-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-LINE-NUMBER-STREAM-OUTPUT-SINK!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo PARSE-IN/OUT (SPEC) NIL NIL NIL NIL NIL NIL T
:pinfo COERCE-TO-KEYWORD (S) NIL NIL NIL NIL NIL NIL T
:pinfo DEFAULT-ALL-SLOTS (S) NIL NIL NIL NIL NIL NIL T
:pinfo BQ_INIT646 NIL NIL NIL NIL NIL NIL NIL T
:pinfo INTERNAL-SIMPLE-CONDITION-FORMAT-ARGUMENTS (S) NIL (SIMPLE-CONDITION) NIL (LAMBDA (S) (DECLARE) (BLOCK INTERNAL-SIMPLE-CONDITION-FORMAT-ARGUMENTS (STRUCTURE-ELT S 3))) NIL T T
:pinfo INTERNAL-SIMPLE-WARNING-FORMAT-ARGUMENTS (S) NIL (SIMPLE-WARNING) NIL (LAMBDA (S) (DECLARE) (BLOCK INTERNAL-SIMPLE-WARNING-FORMAT-ARGUMENTS (STRUCTURE-ELT S 3))) NIL T T
:pinfo SET-END-OF-FILE--DUMMY-SLOT-!@$ (S VALUE) NIL (END-OF-FILE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-END-OF-FILE--DUMMY-SLOT-!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo TERMINAL-STREAM-FORCE-OUTPUT-METHOD (S) NIL (TERMINAL-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK TERMINAL-STREAM-FORCE-OUTPUT-METHOD (STRUCTURE-ELT S 11))) NIL T T
:pinfo SET-BROADCAST-STREAM-STREAMS-LIST!@$ (S VALUE) NIL (BROADCAST-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-BROADCAST-STREAM-STREAMS-LIST!@$ (SET-STRUCTURE-ELT S 15 VALUE))) NIL T T
:pinfo SET-TYPE-ERROR-DATUM!@$ (S VALUE) NIL (TYPE-ERROR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TYPE-ERROR-DATUM!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo BASIC-MACRO-ORIGINAL-ARG-LIST (S) NIL (BASIC-MACRO) NIL (LAMBDA (S) (DECLARE) (BLOCK BASIC-MACRO-ORIGINAL-ARG-LIST (STRUCTURE-ELT S 1))) NIL T T
:pinfo LOOP-MAKE-DESETQ (X) NIL NIL NIL NIL NIL NIL T
:pinfo TWO-WAY-STREAM-READ-BYTE-METHOD (S) NIL (TWO-WAY-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK TWO-WAY-STREAM-READ-BYTE-METHOD (STRUCTURE-ELT S 8))) NIL T T
:pinfo SET-BASIC-MACRO-EXPANSION-FUNCTION!@$ (S VALUE) NIL (BASIC-MACRO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-BASIC-MACRO-EXPANSION-FUNCTION!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo FLUID-TERMINAL-STREAM-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo INITIALIZE-FORMAT NIL NIL NIL NIL NIL NIL NIL T
:pinfo SET-LAMBDA-LIST-REST!@$ (S VALUE) NIL (LAMBDA-LIST T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-LAMBDA-LIST-REST!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SET-PROGRAM-ERROR--DUMMY-SLOT-!@$ (S VALUE) NIL (PROGRAM-ERROR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PROGRAM-ERROR--DUMMY-SLOT-!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SIMPLE-ARRAY-P (X) NIL NIL NIL (LAMBDA (X) (DECLARE) (BLOCK SIMPLE-ARRAY-P (%TAG_MASK= X 5 0))) NIL T T
:pinfo SET-SYMBOL-HASH-CODE (SYMBOL N) NIL (SYMBOL FIXNUM) NIL (LAMBDA (SYMBOL N) (DECLARE) (BLOCK SET-SYMBOL-HASH-CODE (%SYMDEF SYMBOL SYMBOL-HASHCODE-OFFSET N) N)) NIL T T
:pinfo FINISH-OUTPUT (&OPTIONAL (STREAM *STANDARD-OUTPUT*)) NIL NIL NIL (LAMBDA (&OPTIONAL (STREAM *STANDARD-OUTPUT*)) (DECLARE) (BLOCK FINISH-OUTPUT (FORCE-OUTPUT STREAM))) NIL T T
:pinfo CONCATENATED-STREAM-ELEMENT-SIZE (S) NIL (CONCATENATED-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK CONCATENATED-STREAM-ELEMENT-SIZE (STRUCTURE-ELT S 2))) NIL T T
:pinfo PACKAGE-SYMBOLS (S) NIL (PACKAGE) NIL (LAMBDA (S) (DECLARE) (BLOCK PACKAGE-SYMBOLS (STRUCTURE-ELT S 2))) NIL T T
:pinfo STORAGE-CONDITION--DUMMY-SLOT- (S) NIL (STORAGE-CONDITION) NIL (LAMBDA (S) (DECLARE) (BLOCK STORAGE-CONDITION--DUMMY-SLOT- (STRUCTURE-ELT S 1))) NIL T T
:pinfo NOT-ARRAY-ERROR (A VECTOR-ONLY?) NIL NIL NIL NIL NIL NIL T
:pinfo FREE-STRING-BUFFER-1 (BUFFER) NIL NIL NIL (LAMBDA (BUFFER) (DECLARE) (BLOCK FREE-STRING-BUFFER-1 (PUSH BUFFER *FREE-STRING-BUFFERS*))) NIL T T
:pinfo SYMBOL-NAME (X) NIL (SYMBOL) NIL (LAMBDA (X) (DECLARE) (BLOCK SYMBOL-NAME (%SYMREF X SYMBOL-NAME-OFFSET))) NIL T T
:pinfo CLEAR-MACRO-NAME-FLAG (S) NIL NIL NIL NIL NIL NIL T
:pinfo WRITE-BYTE-UNSAFE (INTEGER STREAM) NIL NIL NIL (LAMBDA (INTEGER STREAM) (DECLARE) (BLOCK WRITE-BYTE-UNSAFE (FUNCALL (THE COMPILED-FUNCTION (STREAM-WRITE-BYTE-METHOD STREAM)) STREAM INTEGER))) NIL T T
:pinfo STRUCT-SET-SLOT-FUNCTION (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-SERIOUS-CONDITION--DUMMY-SLOT-!@$ (S VALUE) NIL (SERIOUS-CONDITION T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SERIOUS-CONDITION--DUMMY-SLOT-!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo -DUMMY-SLOT- (S) NIL (CONDITION) NIL (LAMBDA (S) (DECLARE) (BLOCK -DUMMY-SLOT- (STRUCTURE-ELT S 1))) NIL T T
:pinfo RANDOM (N &OPTIONAL (RANDOM-STATE *RANDOM-STATE*)) NIL NIL NIL NIL NIL NIL T
:pinfo LINE-NUMBER-STREAM-OUTPUT-SINK (S) NIL (LINE-NUMBER-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK LINE-NUMBER-STREAM-OUTPUT-SINK (STRUCTURE-ELT S 4))) NIL T T
:pinfo CLRHASH (TABLE) NIL (HASH-TABLE) NIL NIL NIL NIL T
:pinfo SET-FILE-STREAM-READ-BYTE-METHOD!@$ (S VALUE) NIL (FILE-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FILE-STREAM-READ-BYTE-METHOD!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo SET-CONCATENATED-STREAM-READ-CHAR-METHOD!@$ (S VALUE) NIL (CONCATENATED-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONCATENATED-STREAM-READ-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo DEFINE-MACRO-FUNCTION (SYMBOL FUNCTION ARG-LIST TABLE CONSTRUCTOR) NIL NIL NIL NIL NIL NIL T
:pinfo REMOVE/LIST (ITEM LIST TEST KEY) NIL NIL NIL NIL NIL NIL T
:pinfo ADJUST-ARRAY (A &REST STUFF) NIL NIL NIL NIL NIL NIL T
:pinfo INTERNAL-SIMPLE-ERROR-FORMAT-STRING (S) NIL (SIMPLE-ERROR) NIL (LAMBDA (S) (DECLARE) (BLOCK INTERNAL-SIMPLE-ERROR-FORMAT-STRING (STRUCTURE-ELT S 2))) NIL T T
:pinfo USER-DEFINED-STREAM-FORCE-OUTPUT-METHOD (S) NIL (USER-DEFINED-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK USER-DEFINED-STREAM-FORCE-OUTPUT-METHOD (STRUCTURE-ELT S 11))) NIL T T
:pinfo PHYSICAL-PATHNAME-DEVICE (S) NIL (PHYSICAL-PATHNAME) NIL (LAMBDA (S) (DECLARE) (BLOCK PHYSICAL-PATHNAME-DEVICE (STRUCTURE-ELT S 2))) NIL T T
:pinfo ENOUGH-NAMESTRING (NAME) NIL NIL NIL NIL NIL NIL T
:pinfo LINE-NUMBER-STREAM-UNREAD-CHAR-METHOD (S) NIL (LINE-NUMBER-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK LINE-NUMBER-STREAM-UNREAD-CHAR-METHOD (STRUCTURE-ELT S 13))) NIL T T
:pinfo INITIALIZE-STREAMS NIL NIL NIL NIL NIL NIL NIL T
:pinfo CONCATENATED-STREAM-FORCE-OUTPUT-METHOD (S) NIL (CONCATENATED-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK CONCATENATED-STREAM-FORCE-OUTPUT-METHOD (STRUCTURE-ELT S 11))) NIL T T
:pinfo RANDOM-STATE-DATA (S) NIL (RANDOM-STATE) NIL (LAMBDA (S) (DECLARE) (BLOCK RANDOM-STATE-DATA (STRUCTURE-ELT S 2))) NIL T T
:pinfo LOOP-MAKE-SETQ (PAIRS) NIL NIL NIL NIL NIL NIL T
:pinfo LISTP (X) NIL NIL NIL (LAMBDA (X) (DECLARE) (BLOCK LISTP (OR (NULL X) (CONSP X)))) NIL T T
:pinfo ARITHMETIC-ERROR--DUMMY-SLOT- (S) NIL (ARITHMETIC-ERROR) NIL (LAMBDA (S) (DECLARE) (BLOCK ARITHMETIC-ERROR--DUMMY-SLOT- (STRUCTURE-ELT S 1))) NIL T T
:pinfo PRINC-TO-STRING (X) NIL NIL NIL NIL NIL NIL T
:pinfo REMOVE-DUPLICATES/VECTOR (VECTOR TEST KEY) NIL NIL NIL NIL NIL NIL T
:pinfo SET-STRUCT-INFO-NAMED?!@$ (S VALUE) NIL (STRUCT-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STRUCT-INFO-NAMED?!@$ (SET-STRUCTURE-ELT S 12 VALUE))) NIL T T
:pinfo CODE-CHAR (N) NIL (FIXNUM) NIL (LAMBDA (N) (DECLARE) (BLOCK CODE-CHAR (%CODE-CHAR N))) NIL T T
:pinfo COPY-RANDOM-STATE (S) NIL NIL NIL NIL NIL NIL T
:pinfo PROCLAIM-CONSTANT-VARIABLE (S INIT-FORM) NIL NIL NIL NIL NIL NIL T
:pinfo SYNONYM-STREAM-ELEMENT-TYPE (S) NIL (SYNONYM-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK SYNONYM-STREAM-ELEMENT-TYPE (STRUCTURE-ELT S 1))) NIL T T
:pinfo SYNONYM-STREAM-READ-CHAR-METHOD (S) NIL (SYNONYM-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK SYNONYM-STREAM-READ-CHAR-METHOD (STRUCTURE-ELT S 6))) NIL T T
:pinfo STRUCT-INFO-CONSTRUCTOR-ARG-LIST (S) NIL (STRUCT-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK STRUCT-INFO-CONSTRUCTOR-ARG-LIST (STRUCTURE-ELT S 15))) NIL T T
:pinfo SET-INTERACTIVE-STREAM-INPUT-SOURCE!@$ (S VALUE) NIL (INTERACTIVE-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INTERACTIVE-STREAM-INPUT-SOURCE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo EXPAND-MACROLET (FORM) NIL NIL NIL NIL NIL NIL T
:pinfo SET-CONCATENATED-STREAM-WRITE-FLOAT-METHOD!@$ (S VALUE) NIL (CONCATENATED-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONCATENATED-STREAM-WRITE-FLOAT-METHOD!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo QUOTED-CONSTANT-P (L) NIL NIL NIL NIL NIL NIL T
:finfo READ_VECTOR "read_vector" (FILE ELEMENT-SIZE VECTOR START END EOF-ERROR-P EOF-VALUE) (COUNT) (FILE-PTR INT T INT INT T T) (T)
:pinfo SYMBOL-PRINT-ESCAPE-FLAG-VALID? (S) NIL NIL NIL (LAMBDA (S) (DECLARE) (BLOCK SYMBOL-PRINT-ESCAPE-FLAG-VALID? (%= (SYMBOL-FLAG S PRINT-ESCAPE-FLAG-VALID?) 1))) NIL T T
:pinfo SYNONYM-STREAM-LISTEN-METHOD (S) NIL (SYNONYM-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK SYNONYM-STREAM-LISTEN-METHOD (STRUCTURE-ELT S 14))) NIL T T
:pinfo STACK-OVERFLOW--DUMMY-SLOT- (S) NIL (STACK-OVERFLOW) NIL (LAMBDA (S) (DECLARE) (BLOCK STACK-OVERFLOW--DUMMY-SLOT- (STRUCTURE-ELT S 1))) NIL T T
:pinfo CONS (X Y) NIL NIL NIL (LAMBDA (X Y) (DECLARE) (BLOCK CONS (C_CONS X Y))) NIL T T
:pinfo CADR (C) NIL NIL NIL (LAMBDA (C) (DECLARE) (BLOCK CADR (CAR (CDR C)))) NIL T T
:pinfo COPY-ECHO-STRING (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-BROADCAST-STREAM-OUTPUT-SINK!@$ (S VALUE) NIL (BROADCAST-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-BROADCAST-STREAM-OUTPUT-SINK!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo SET-CONCATENATED-STREAM-WRITE-CHAR-METHOD!@$ (S VALUE) NIL (CONCATENATED-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONCATENATED-STREAM-WRITE-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo STRUCT-INFO-REPORT-FUNCTION-LAMBDA-EXPR (S) NIL (STRUCT-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK STRUCT-INFO-REPORT-FUNCTION-LAMBDA-EXPR (STRUCTURE-ELT S 19))) NIL T T
:pinfo STREAM-READ-CHAR-METHOD (S) NIL (STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK STREAM-READ-CHAR-METHOD (STRUCTURE-ELT S 6))) NIL T T
:pinfo USER-DEFINED-STREAM-ELEMENT-SIZE (S) NIL (USER-DEFINED-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK USER-DEFINED-STREAM-ELEMENT-SIZE (STRUCTURE-ELT S 2))) NIL T T
:pinfo SET-BROADCAST-STREAM-LISTEN-METHOD!@$ (S VALUE) NIL (BROADCAST-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-BROADCAST-STREAM-LISTEN-METHOD!@$ (SET-STRUCTURE-ELT S 14 VALUE))) NIL T T
:pinfo ARITHMETIC-ERROR-OPERANDS (S) NIL (ARITHMETIC-ERROR) NIL (LAMBDA (S) (DECLARE) (BLOCK ARITHMETIC-ERROR-OPERANDS (STRUCTURE-ELT S 3))) NIL T T
:pinfo STRING-STREAM-PEEK-CHAR-METHOD (S) NIL (STRING-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK STRING-STREAM-PEEK-CHAR-METHOD (STRUCTURE-ELT S 12))) NIL T T
:pinfo INTERNAL-SIMPLE-TYPE-ERROR-DATUM (S) NIL (SIMPLE-TYPE-ERROR) NIL (LAMBDA (S) (DECLARE) (BLOCK INTERNAL-SIMPLE-TYPE-ERROR-DATUM (STRUCTURE-ELT S 2))) NIL T T
:pinfo SET-FPTR-STREAM-FORCE-OUTPUT-METHOD!@$ (S VALUE) NIL (FPTR-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FPTR-STREAM-FORCE-OUTPUT-METHOD!@$ (SET-STRUCTURE-ELT S 11 VALUE))) NIL T T
:pinfo FLOATING-POINT-OVERFLOW-OPERATION (S) NIL (FLOATING-POINT-OVERFLOW) NIL (LAMBDA (S) (DECLARE) (BLOCK FLOATING-POINT-OVERFLOW-OPERATION (STRUCTURE-ELT S 2))) NIL T T
:pinfo SET-TERMINAL-STREAM-FORCE-OUTPUT-METHOD!@$ (S VALUE) NIL (TERMINAL-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TERMINAL-STREAM-FORCE-OUTPUT-METHOD!@$ (SET-STRUCTURE-ELT S 11 VALUE))) NIL T T
:pinfo SET-STRING-STREAM-INTERNAL-BUFFER?!@$ (S VALUE) NIL (STRING-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STRING-STREAM-INTERNAL-BUFFER?!@$ (SET-STRUCTURE-ELT S 17 VALUE))) NIL T T
:pinfo PATHNAME-NAME (P) NIL NIL NIL NIL NIL NIL T
:pinfo SET-ECHO-STRING-PEEK-CHAR-METHOD!@$ (S VALUE) NIL (ECHO-STRING T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-ECHO-STRING-PEEK-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 12 VALUE))) NIL T T
:pinfo POSITION (ITEM SEQUENCE &KEY TEST TEST-NOT (KEY (FUNCTION IDENTITY)) (START 0) (END (LENGTH SEQUENCE)) FROM-END) NIL NIL NIL NIL NIL NIL T
:pinfo SET-ECHO-STRING-OUTPUT-SINK!@$ (S VALUE) NIL (ECHO-STRING T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-ECHO-STRING-OUTPUT-SINK!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo SYNONYM-STREAM-INPUT-SOURCE (S) NIL (SYNONYM-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK SYNONYM-STREAM-INPUT-SOURCE (STRUCTURE-ELT S 3))) NIL T T
:pinfo COPY-BASIC-MACRO (S) NIL NIL NIL NIL NIL NIL T
:pinfo COMPLETE-STRUCTURE-DEF (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-ECHO-STRING-FORCE-OUTPUT-METHOD!@$ (S VALUE) NIL (ECHO-STRING T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-ECHO-STRING-FORCE-OUTPUT-METHOD!@$ (SET-STRUCTURE-ELT S 11 VALUE))) NIL T T
:pinfo SET-BROADCAST-STREAM-WRITE-SIMPLE-STRING-METHOD!@$ (S VALUE) NIL (BROADCAST-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-BROADCAST-STREAM-WRITE-SIMPLE-STRING-METHOD!@$ (SET-STRUCTURE-ELT S 10 VALUE))) NIL T T
:pinfo STRUCT-GET-SLOT-FUNCTION (S) NIL NIL NIL NIL NIL NIL T
:pinfo ECHO-STRING-WRITE-SIMPLE-STRING-METHOD (S) NIL (ECHO-STRING) NIL (LAMBDA (S) (DECLARE) (BLOCK ECHO-STRING-WRITE-SIMPLE-STRING-METHOD (STRUCTURE-ELT S 10))) NIL T T
:pinfo COPY-SEQ (SEQ) NIL NIL NIL NIL NIL NIL T
:pinfo READ-BYTE-UNSAFE (STREAM EOF-ERROR-P EOF-VALUE) NIL NIL NIL (LAMBDA (STREAM EOF-ERROR-P EOF-VALUE) (DECLARE) (BLOCK READ-BYTE-UNSAFE (FUNCALL (THE COMPILED-FUNCTION (STREAM-READ-BYTE-METHOD STREAM)) STREAM EOF-ERROR-P EOF-VALUE))) NIL T T
:pinfo SYMBOL-PACKAGE (SYMBOL) NIL (SYMBOL) NIL NIL NIL NIL T
:pinfo ACCUMULATE-RL (OP N ARGS) NIL NIL NIL NIL NIL NIL T
:pinfo INVOKE-RESTART-INTERACTIVELY (RESTART) NIL NIL NIL NIL NIL NIL T
:pinfo FILE-STREAM-PEEK-CHAR-METHOD (S) NIL (FILE-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK FILE-STREAM-PEEK-CHAR-METHOD (STRUCTURE-ELT S 12))) NIL T T
:pinfo FIXED-ARG-CONSTRUCTOR-NAME (S CONSTRUCTOR-ARG-SLOT-NAMES) NIL NIL NIL NIL NIL NIL T
:pinfo CHAR-CODE (C) NIL (CHARACTER) NIL (LAMBDA (C) (DECLARE) (BLOCK CHAR-CODE (%CHAR-CODE C))) NIL T T
:pinfo REMOVE/VECTOR (ITEM LIST TEST KEY) NIL NIL NIL NIL NIL NIL T
:pinfo SET-FILE-STREAM-ELEMENT-TYPE!@$ (S VALUE) NIL (FILE-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FILE-STREAM-ELEMENT-TYPE!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-SBIT (VALUE A &RESTV DIMS) NIL NIL NIL NIL NIL NIL T
:pinfo CHAR-NAME (CHAR) NIL (CHARACTER) NIL NIL NIL NIL T
:pinfo LOOP-DO-DO NIL NIL NIL NIL NIL NIL NIL T
:finfo LEQ_P "leq_p" (X Y) (FLAG) (T T) (T)
:pinfo SET-TWO-WAY-STREAM-UNREAD-CHAR-METHOD!@$ (S VALUE) NIL (TWO-WAY-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TWO-WAY-STREAM-UNREAD-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 13 VALUE))) NIL T T
:pinfo FLUID-UNBOUND-VARIABLE-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-BROADCAST-STREAM-WRITE-FLOAT-METHOD!@$ (S VALUE) NIL (BROADCAST-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-BROADCAST-STREAM-WRITE-FLOAT-METHOD!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo SET-ECHO-STRING-INPUT-SOURCE!@$ (S VALUE) NIL (ECHO-STRING T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-ECHO-STRING-INPUT-SOURCE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SET-CHAR-BIT (C BIT-NAME VALUE) NIL (CHARACTER SYMBOL FIXNUM) NIL (LAMBDA (C BIT-NAME VALUE) (DECLARE) (BLOCK SET-CHAR-BIT VALUE)) NIL T T
:pinfo SET-INTERACTIVE-STREAM-WRITE-CHAR-METHOD!@$ (S VALUE) NIL (INTERACTIVE-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INTERACTIVE-STREAM-WRITE-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo FPTR-STREAM-WRITE-CHAR-METHOD (S) NIL (FPTR-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK FPTR-STREAM-WRITE-CHAR-METHOD (STRUCTURE-ELT S 5))) NIL T T
:pinfo ACONS (KEY DATA A-LIST) NIL NIL NIL NIL NIL NIL T
:pinfo SET-INTERNAL-SIMPLE-WARNING--DUMMY-SLOT-!@$ (S VALUE) NIL (SIMPLE-WARNING T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INTERNAL-SIMPLE-WARNING--DUMMY-SLOT-!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:finfo GETPID "getpid" NIL (PID) NIL (INT)
:pinfo SET-DISPATCH-MACRO-CHARACTER (DISP-CHAR SUB-CHAR FUNCTION &OPTIONAL (RT *READTABLE*)) NIL NIL NIL NIL NIL NIL T
:pinfo SET-USER-STREAM-UNREAD-CHAR-METHOD!@$ (S VALUE) NIL (USER-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-USER-STREAM-UNREAD-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 13 VALUE))) NIL T T
:pinfo ATAN (Y &OPTIONAL (X 0)) NIL NIL NIL NIL NIL NIL T
:pinfo COMBINED-TYPE (TYPE) NIL NIL NIL NIL NIL NIL T
:pinfo LDB-1 (SIZE POSITION N) NIL NIL NIL NIL NIL NIL T
:pinfo SET-STREAM-WRITE-SIMPLE-STRING-METHOD!@$ (S VALUE) NIL (STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STREAM-WRITE-SIMPLE-STRING-METHOD!@$ (SET-STRUCTURE-ELT S 10 VALUE))) NIL T T
:pinfo CONSTRUCTOR-FOR-CONTROL-ERROR (&KEY (-DUMMY-SLOT- NIL)) NIL NIL NIL (LAMBDA (&KEY (-DUMMY-SLOT- NIL)) (DECLARE) (BLOCK CONSTRUCTOR-FOR-CONTROL-ERROR (CONSTRUCTOR-FOR-CONTROL-ERROR/1 -DUMMY-SLOT-))) NIL T T
:pinfo DEFSTRUCT-PACKAGE (SYMBOL) NIL NIL NIL NIL NIL NIL T
:pinfo FPTR-STREAM-UNREAD-CHAR-METHOD (S) NIL (FPTR-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK FPTR-STREAM-UNREAD-CHAR-METHOD (STRUCTURE-ELT S 13))) NIL T T
:pinfo LOOP-FOR-FIRST (VAR VAL DATA-TYPE?) NIL NIL NIL NIL NIL NIL T
:pinfo SET-FPTR-STREAM-WRITE-BYTE-METHOD!@$ (S VALUE) NIL (FPTR-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FPTR-STREAM-WRITE-BYTE-METHOD!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo CONCATENATED-STREAM-READ-CHAR-METHOD (S) NIL (CONCATENATED-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK CONCATENATED-STREAM-READ-CHAR-METHOD (STRUCTURE-ELT S 6))) NIL T T
:pinfo SET-BROADCAST-STREAM-FORCE-OUTPUT-METHOD!@$ (S VALUE) NIL (BROADCAST-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-BROADCAST-STREAM-FORCE-OUTPUT-METHOD!@$ (SET-STRUCTURE-ELT S 11 VALUE))) NIL T T
:pinfo SET-LINE-NUMBER-STREAM-WRITE-BYTE-METHOD!@$ (S VALUE) NIL (LINE-NUMBER-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-LINE-NUMBER-STREAM-WRITE-BYTE-METHOD!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo SET-DISPATCH-MACRO-CHAR-FUNCTION!@$ (S VALUE) NIL (DISPATCH-MACRO-CHAR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DISPATCH-MACRO-CHAR-FUNCTION!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo REPORT-FUNCTION (CONDITION-TYPE) NIL NIL NIL NIL NIL NIL T
:pinfo TYPE-ERROR--DUMMY-SLOT- (S) NIL (TYPE-ERROR) NIL (LAMBDA (S) (DECLARE) (BLOCK TYPE-ERROR--DUMMY-SLOT- (STRUCTURE-ELT S 1))) NIL T T
:pinfo SYNONYM-STREAM-UNREAD-CHAR-METHOD (S) NIL (SYNONYM-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK SYNONYM-STREAM-UNREAD-CHAR-METHOD (STRUCTURE-ELT S 13))) NIL T T
:pinfo FOREIGN-POINTER-POINTER (X) NIL NIL NIL (LAMBDA (X) (DECLARE) (BLOCK FOREIGN-POINTER-POINTER (%32BIT-REF X 0))) NIL T T
:pinfo BITP (X) NIL NIL NIL (LAMBDA (X) (DECLARE) (BLOCK BITP (OR (%= X 0) (%= X 1)))) NIL T T
:pinfo ELEMENT-TYPE-TAG (A) NIL NIL NIL NIL NIL NIL T
:pinfo SET-PACKAGE-SYMBOLS!@$ (S VALUE) NIL (PACKAGE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PACKAGE-SYMBOLS!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo FPTR-STREAM-ELEMENT-TYPE (S) NIL (FPTR-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK FPTR-STREAM-ELEMENT-TYPE (STRUCTURE-ELT S 1))) NIL T T
:pinfo GET (SYMBOL INDICATOR &OPTIONAL DEFAULT) NIL NIL NIL (LAMBDA (SYMBOL INDICATOR &OPTIONAL DEFAULT) (DECLARE) (BLOCK GET (LOOKUP-PROP (SYMBOL-PLIST SYMBOL) INDICATOR DEFAULT))) NIL T T
:pinfo SET-TERMINAL-STREAM-OUTPUT-SINK!@$ (S VALUE) NIL (TERMINAL-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TERMINAL-STREAM-OUTPUT-SINK!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo IOBUF-COUNT (S) NIL NIL NIL (LAMBDA (S) (DECLARE) (BLOCK IOBUF-COUNT (C-STRUCT-REF S IOBUF COUNT))) NIL T T
:pinfo LINE-SYMBOL-P (S) NIL NIL NIL (LAMBDA (S) (DECLARE) (BLOCK LINE-SYMBOL-P (%TAG= S TYPE-LINE-SYMBOL))) NIL T T
:pinfo SET-FILE-STREAM-WRITE-SIMPLE-STRING-METHOD!@$ (S VALUE) NIL (FILE-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FILE-STREAM-WRITE-SIMPLE-STRING-METHOD!@$ (SET-STRUCTURE-ELT S 10 VALUE))) NIL T T
:pinfo SYNONYM-STREAM-WRITE-BYTE-METHOD (S) NIL (SYNONYM-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK SYNONYM-STREAM-WRITE-BYTE-METHOD (STRUCTURE-ELT S 7))) NIL T T
:pinfo SET-STRUCT-INFO-CONSTRUCTOR-ARG-LIST!@$ (S VALUE) NIL (STRUCT-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STRUCT-INFO-CONSTRUCTOR-ARG-LIST!@$ (SET-STRUCTURE-ELT S 15 VALUE))) NIL T T
:pinfo SET-PCL-WALKER-MACRO-EXPANSION-FUNCTION!@$ (S VALUE) NIL (PCL-WALKER-MACRO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PCL-WALKER-MACRO-EXPANSION-FUNCTION!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo FREE-STRING-STREAM (STREAM) NIL NIL NIL NIL NIL NIL T
:pinfo TWO-WAY-STREAM-INPUT-SOURCE (S) NIL (TWO-WAY-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK TWO-WAY-STREAM-INPUT-SOURCE (STRUCTURE-ELT S 3))) NIL T T
:pinfo NULLEVALDEBUG (INIT) NIL NIL NIL NIL NIL NIL T
:pinfo SET-USER-DEFINED-STREAM-WRITE-BYTE-METHOD!@$ (S VALUE) NIL (USER-DEFINED-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-USER-DEFINED-STREAM-WRITE-BYTE-METHOD!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo CONCATENATED-STREAM-WRITE-FLOAT-METHOD (S) NIL (CONCATENATED-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK CONCATENATED-STREAM-WRITE-FLOAT-METHOD (STRUCTURE-ELT S 9))) NIL T T
:pinfo SET-INTERACTIVE-STREAM-LISTEN-METHOD!@$ (S VALUE) NIL (INTERACTIVE-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INTERACTIVE-STREAM-LISTEN-METHOD!@$ (SET-STRUCTURE-ELT S 14 VALUE))) NIL T T
:pinfo FLUID-ECHO-STRING-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo ECHO-STRING-FORCE-OUTPUT-METHOD (S) NIL (ECHO-STRING) NIL (LAMBDA (S) (DECLARE) (BLOCK ECHO-STRING-FORCE-OUTPUT-METHOD (STRUCTURE-ELT S 11))) NIL T T
:pinfo CADDR (C) NIL NIL NIL (LAMBDA (C) (DECLARE) (BLOCK CADDR (CAR (CDR (CDR C))))) NIL T T
:pinfo TERMINAL-STREAM-WRITE-FLOAT-METHOD (S) NIL (TERMINAL-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK TERMINAL-STREAM-WRITE-FLOAT-METHOD (STRUCTURE-ELT S 9))) NIL T T
:pinfo STRING-DOWNCASE (S &KEY (START 0) END) NIL NIL NIL (LAMBDA (S &KEY (START 0) END) (DECLARE) (BLOCK STRING-DOWNCASE (STRING-DOWNCASE/3 S START END))) NIL T T
:pinfo STRING-STREAM-NEXT (S) NIL (STRING-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK STRING-STREAM-NEXT (STRUCTURE-ELT S 15))) NIL T T
:pinfo SET-LINE-NUMBER-STREAM-WRITE-FLOAT-METHOD!@$ (S VALUE) NIL (LINE-NUMBER-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-LINE-NUMBER-STREAM-WRITE-FLOAT-METHOD!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo LIST (&REST L) NIL NIL NIL NIL NIL NIL T
:pinfo SET-FPTR-STREAM-WRITE-SIMPLE-STRING-METHOD!@$ (S VALUE) NIL (FPTR-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FPTR-STREAM-WRITE-SIMPLE-STRING-METHOD!@$ (SET-STRUCTURE-ELT S 10 VALUE))) NIL T T
:pinfo SET-PHYSICAL-PATHNAME-NAMESTRING!@$ (S VALUE) NIL (PHYSICAL-PATHNAME T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PHYSICAL-PATHNAME-NAMESTRING!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo CL-TYPES_INIT645 NIL NIL NIL NIL NIL NIL NIL T
:pinfo SET-STRING-STREAM-NEXT!@$ (S VALUE) NIL (STRING-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STRING-STREAM-NEXT!@$ (SET-STRUCTURE-ELT S 15 VALUE))) NIL T T
:pinfo FLUID-CONTROL-ERROR-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo USER-STREAM-WRITE-BYTE-METHOD (S) NIL (USER-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK USER-STREAM-WRITE-BYTE-METHOD (STRUCTURE-ELT S 7))) NIL T T
:pinfo USER-HOMEDIR-PATHNAME NIL NIL NIL NIL NIL NIL NIL T
:pinfo USER-STREAM-READ-CHAR-METHOD (S) NIL (USER-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK USER-STREAM-READ-CHAR-METHOD (STRUCTURE-ELT S 6))) NIL T T
:pinfo TWO-WAY-STREAM-UNREAD-CHAR-METHOD (S) NIL (TWO-WAY-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK TWO-WAY-STREAM-UNREAD-CHAR-METHOD (STRUCTURE-ELT S 13))) NIL T T
:pinfo SET-STRING-STREAM-WRITE-FLOAT-METHOD!@$ (S VALUE) NIL (STRING-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STRING-STREAM-WRITE-FLOAT-METHOD!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo TWO-WAY-STREAM-LISTEN-METHOD (S) NIL (TWO-WAY-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK TWO-WAY-STREAM-LISTEN-METHOD (STRUCTURE-ELT S 14))) NIL T T
:pinfo ESCAPED-SYMBOL-CHAR? (C) NIL NIL NIL (LAMBDA (C) (DECLARE) (BLOCK ESCAPED-SYMBOL-CHAR? (SVREF *CHARACTER-ATTRIBUTES* (CHAR-CODE C)))) NIL T T
:pinfo INTERACTIVE-STREAM-READ-CHAR-METHOD (S) NIL (INTERACTIVE-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK INTERACTIVE-STREAM-READ-CHAR-METHOD (STRUCTURE-ELT S 6))) NIL T T
:pinfo CONSTRUCTOR-FOR-ERROR (&KEY (-DUMMY-SLOT- NIL)) NIL NIL NIL (LAMBDA (&KEY (-DUMMY-SLOT- NIL)) (DECLARE) (BLOCK CONSTRUCTOR-FOR-ERROR (CONSTRUCTOR-FOR-ERROR/1 -DUMMY-SLOT-))) NIL T T
:pinfo FLUID-BROADCAST-STREAM-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo STRING-UPCASE (S) NIL NIL NIL NIL NIL NIL T
:pinfo COPY-FILE-STREAM (S) NIL NIL NIL NIL NIL NIL T
:pinfo FILE-STREAM-WRITE-BYTE-METHOD (S) NIL (FILE-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK FILE-STREAM-WRITE-BYTE-METHOD (STRUCTURE-ELT S 7))) NIL T T
:pinfo ADJOIN/4 (ITEM LIST TEST KEY) NIL NIL NIL NIL NIL NIL T
:pinfo FLUID-CONDITION-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo TIME-ZONE NIL NIL NIL NIL NIL NIL NIL T
:pinfo RATIONALP (X) NIL NIL NIL (LAMBDA (X) (DECLARE) (BLOCK RATIONALP (INTEGERP X))) NIL T T
:pinfo FLUID-FPTR-STREAM-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo TERMINAL-STREAM-PEEK-CHAR-METHOD (S) NIL (TERMINAL-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK TERMINAL-STREAM-PEEK-CHAR-METHOD (STRUCTURE-ELT S 12))) NIL T T
:pinfo 1+ (X) NIL NIL NIL (LAMBDA (X) (DECLARE) (BLOCK 1+ (+ X 1))) NIL T T
:pinfo 1- (X) NIL NIL NIL (LAMBDA (X) (DECLARE) (BLOCK 1- (- X 1))) NIL T T
:pinfo FORMAT-FUNNY-CONDITION NIL NIL NIL NIL NIL NIL NIL T
:pinfo FLOATING-POINT-UNDERFLOW--DUMMY-SLOT- (S) NIL (FLOATING-POINT-UNDERFLOW) NIL (LAMBDA (S) (DECLARE) (BLOCK FLOATING-POINT-UNDERFLOW--DUMMY-SLOT- (STRUCTURE-ELT S 1))) NIL T T
:pinfo SET-BROADCAST-STREAM-ELEMENT-SIZE!@$ (S VALUE) NIL (BROADCAST-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-BROADCAST-STREAM-ELEMENT-SIZE!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo PHYSICAL-PATHNAME-NAME (S) NIL (PHYSICAL-PATHNAME) NIL (LAMBDA (S) (DECLARE) (BLOCK PHYSICAL-PATHNAME-NAME (STRUCTURE-ELT S 4))) NIL T T
:pinfo SET-STRING-STREAM-FORCE-OUTPUT-METHOD!@$ (S VALUE) NIL (STRING-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STRING-STREAM-FORCE-OUTPUT-METHOD!@$ (SET-STRUCTURE-ELT S 11 VALUE))) NIL T T
:pinfo SET-SYNONYM-STREAM-UNREAD-CHAR-METHOD!@$ (S VALUE) NIL (SYNONYM-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SYNONYM-STREAM-UNREAD-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 13 VALUE))) NIL T T
:pinfo CDDR (C) NIL NIL NIL (LAMBDA (C) (DECLARE) (BLOCK CDDR (CDR (CDR C)))) NIL T T
:finfo CHDIR "chdir" (PATH) (V) (CHAR*) (INT)
:pinfo CELL-ERROR--DUMMY-SLOT- (S) NIL (CELL-ERROR) NIL (LAMBDA (S) (DECLARE) (BLOCK CELL-ERROR--DUMMY-SLOT- (STRUCTURE-ELT S 1))) NIL T T
:pinfo FLUID-CASE-FAILURE-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo LOOP-DO-RETURN NIL NIL NIL NIL NIL NIL NIL T
:pinfo TWO-WAY-STREAM-OUTPUT-SINK (S) NIL (TWO-WAY-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK TWO-WAY-STREAM-OUTPUT-SINK (STRUCTURE-ELT S 4))) NIL T T
:pinfo LOAD-COMPILED-FILE (FILENAME) NIL NIL NIL NIL NIL NIL T
:pinfo SET-FLOATING-POINT-OVERFLOW-OPERATION!@$ (S VALUE) NIL (FLOATING-POINT-OVERFLOW T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FLOATING-POINT-OVERFLOW-OPERATION!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo PROCLAIMED-SPECIAL? (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-FILE-STREAM-FORCE-OUTPUT-METHOD!@$ (S VALUE) NIL (FILE-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FILE-STREAM-FORCE-OUTPUT-METHOD!@$ (SET-STRUCTURE-ELT S 11 VALUE))) NIL T T
:pinfo SET-STRUCTURE-ELT (S N VALUE) NIL NIL NIL (LAMBDA (S N VALUE) (DECLARE) (BLOCK SET-STRUCTURE-ELT (%SET-STRUCTURE-ELT S N VALUE))) NIL T T
:pinfo CASE-FAILURE-NAME (S) NIL (CASE-FAILURE) NIL (LAMBDA (S) (DECLARE) (BLOCK CASE-FAILURE-NAME (STRUCTURE-ELT S 4))) NIL T T
:pinfo CHAR-BITS (C) NIL (CHARACTER) NIL (LAMBDA (C) (DECLARE) (BLOCK CHAR-BITS 0)) NIL T T
:pinfo ABORT-TO-TOP-LEVEL NIL NIL NIL NIL NIL NIL NIL T
:pinfo UNBOUND-VARIABLE--DUMMY-SLOT- (S) NIL (UNBOUND-VARIABLE) NIL (LAMBDA (S) (DECLARE) (BLOCK UNBOUND-VARIABLE--DUMMY-SLOT- (STRUCTURE-ELT S 1))) NIL T T
:pinfo EVAL (FORM) NIL NIL NIL NIL NIL NIL T
:pinfo STRING= (S1 S2) NIL NIL NIL NIL NIL NIL T
:pinfo SET-MACRO-ENV-MACROS!@$ (S VALUE) NIL (MACRO-ENV T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-MACRO-ENV-MACROS!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo STORAGE-EXHAUSTED--DUMMY-SLOT- (S) NIL (STORAGE-EXHAUSTED) NIL (LAMBDA (S) (DECLARE) (BLOCK STORAGE-EXHAUSTED--DUMMY-SLOT- (STRUCTURE-ELT S 1))) NIL T T
:pinfo SYNONYM-STREAM-WRITE-SIMPLE-STRING-METHOD (S) NIL (SYNONYM-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK SYNONYM-STREAM-WRITE-SIMPLE-STRING-METHOD (STRUCTURE-ELT S 10))) NIL T T
:pinfo SET-STRUCT-INFO-INITIAL-OFFSET!@$ (S VALUE) NIL (STRUCT-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STRUCT-INFO-INITIAL-OFFSET!@$ (SET-STRUCTURE-ELT S 13 VALUE))) NIL T T
:finfo C_CONS "c_cons" (CAR CDR) (C) (T T) (T)
:pinfo SET-BROADCAST-STREAM-READ-CHAR-METHOD!@$ (S VALUE) NIL (BROADCAST-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-BROADCAST-STREAM-READ-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo USER-STREAM-UNREAD-CHAR-METHOD (S) NIL (USER-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK USER-STREAM-UNREAD-CHAR-METHOD (STRUCTURE-ELT S 13))) NIL T T
:pinfo STRUCT-INFO-TYPE (S) NIL (STRUCT-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK STRUCT-INFO-TYPE (STRUCTURE-ELT S 11))) NIL T T
:pinfo SET-STRUCT-INFO-TYPE!@$ (S VALUE) NIL (STRUCT-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STRUCT-INFO-TYPE!@$ (SET-STRUCTURE-ELT S 11 VALUE))) NIL T T
:pinfo STABLE-SORT-VECTOR (VECTOR PRED KEY) NIL NIL NIL NIL NIL NIL T
:pinfo SET-CASE-FAILURE--DUMMY-SLOT-!@$ (S VALUE) NIL (CASE-FAILURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CASE-FAILURE--DUMMY-SLOT-!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo STRINGP (X) NIL NIL NIL NIL NIL NIL T
:pinfo SET-USER-DEFINED-STREAM-WRITE-FLOAT-METHOD!@$ (S VALUE) NIL (USER-DEFINED-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-USER-DEFINED-STREAM-WRITE-FLOAT-METHOD!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo SET-LINE-NUMBER-STREAM-LISTEN-METHOD!@$ (S VALUE) NIL (LINE-NUMBER-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-LINE-NUMBER-STREAM-LISTEN-METHOD!@$ (SET-STRUCTURE-ELT S 14 VALUE))) NIL T T
:pinfo SET-TERMINAL-STREAM-ELEMENT-SIZE!@$ (S VALUE) NIL (TERMINAL-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TERMINAL-STREAM-ELEMENT-SIZE!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo CASE-FAILURE-EXPECTED-TYPE (S) NIL (CASE-FAILURE) NIL (LAMBDA (S) (DECLARE) (BLOCK CASE-FAILURE-EXPECTED-TYPE (STRUCTURE-ELT S 3))) NIL T T
:pinfo PROGRAM-ERROR--DUMMY-SLOT- (S) NIL (PROGRAM-ERROR) NIL (LAMBDA (S) (DECLARE) (BLOCK PROGRAM-ERROR--DUMMY-SLOT- (STRUCTURE-ELT S 1))) NIL T T
:pinfo SET-HASH-TABLE-COUNT!@$ (S VALUE) NIL (HASH-TABLE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-HASH-TABLE-COUNT!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo SET-ECHO-STRING-LISTEN-METHOD!@$ (S VALUE) NIL (ECHO-STRING T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-ECHO-STRING-LISTEN-METHOD!@$ (SET-STRUCTURE-ELT S 14 VALUE))) NIL T T
:pinfo SET-MACRO-EXPANSION-FUNCTION!@$ (S VALUE) NIL (MACRO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-MACRO-EXPANSION-FUNCTION!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SET-HASH-TABLE-LENGTH!@$ (S VALUE) NIL (HASH-TABLE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-HASH-TABLE-LENGTH!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo %COPY-READTABLE (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-HASH-TABLE-REHASH-LIMIT!@$ (S VALUE) NIL (HASH-TABLE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-HASH-TABLE-REHASH-LIMIT!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo SET-SYNONYM-STREAM-LISTEN-METHOD!@$ (S VALUE) NIL (SYNONYM-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SYNONYM-STREAM-LISTEN-METHOD!@$ (SET-STRUCTURE-ELT S 14 VALUE))) NIL T T
:pinfo TOKEN->SYMBOL (BUFFER) NIL NIL NIL NIL NIL NIL T
:pinfo CONSTRUCTOR-FOR-CONDITION (&KEY (-DUMMY-SLOT- NIL)) NIL NIL NIL (LAMBDA (&KEY (-DUMMY-SLOT- NIL)) (DECLARE) (BLOCK CONSTRUCTOR-FOR-CONDITION (CONSTRUCTOR-FOR-CONDITION/1 -DUMMY-SLOT-))) NIL T T
:pinfo SET-FILE-ERROR--DUMMY-SLOT-!@$ (S VALUE) NIL (FILE-ERROR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FILE-ERROR--DUMMY-SLOT-!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo DIRENT-FILENO (S) NIL NIL NIL (LAMBDA (S) (DECLARE) (BLOCK DIRENT-FILENO (C-STRUCT-REF S DIRENT FILENO))) NIL T T
:pinfo READ-LIST (STREAM) NIL NIL NIL NIL NIL NIL T
:pinfo SET-STRING-STREAM-OUTPUT-SINK!@$ (S VALUE) NIL (STRING-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STRING-STREAM-OUTPUT-SINK!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo FLUID-LINE-NUMBER-STREAM-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo INTERNAL-SIMPLE-TYPE-ERROR-FORMAT-STRING (S) NIL (SIMPLE-TYPE-ERROR) NIL (LAMBDA (S) (DECLARE) (BLOCK INTERNAL-SIMPLE-TYPE-ERROR-FORMAT-STRING (STRUCTURE-ELT S 4))) NIL T T
:pinfo SET-STREAM-ERROR--DUMMY-SLOT-!@$ (S VALUE) NIL (STREAM-ERROR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STREAM-ERROR--DUMMY-SLOT-!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo COPY-CONCATENATED-STREAM (S) NIL NIL NIL NIL NIL NIL T
:pinfo COPY-BYTE (S) NIL NIL NIL NIL NIL NIL T
:pinfo STRING-STREAM-READ-BYTE-METHOD (S) NIL (STRING-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK STRING-STREAM-READ-BYTE-METHOD (STRUCTURE-ELT S 8))) NIL T T
:pinfo COMPILER-MACRO-ORIGINAL-ARG-LIST (S) NIL (COMPILER-MACRO) NIL (LAMBDA (S) (DECLARE) (BLOCK COMPILER-MACRO-ORIGINAL-ARG-LIST (STRUCTURE-ELT S 1))) NIL T T
:pinfo SET-INTERNAL-SIMPLE-ERROR-FORMAT-ARGUMENTS!@$ (S VALUE) NIL (SIMPLE-ERROR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INTERNAL-SIMPLE-ERROR-FORMAT-ARGUMENTS!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo LOOP-GET-PROGN-1 NIL NIL NIL NIL NIL NIL NIL T
:pinfo LINE-NUMBER-STREAM-READ-CHAR-METHOD (S) NIL (LINE-NUMBER-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK LINE-NUMBER-STREAM-READ-CHAR-METHOD (STRUCTURE-ELT S 6))) NIL T T
:pinfo SYMBOL-FLAG (S FLAG) NIL (SYMBOL FIXNUM) NIL (LAMBDA (S FLAG) (DECLARE) (BLOCK SYMBOL-FLAG (%BIT-TEST (%32BIT-REF S SYMBOL-SELF-LINK-OFFSET) SYMBOL-FLAGS-OFFSET FLAG))) NIL T T
:pinfo ASSOC (X A-LIST &KEY TEST TEST-NOT (KEY (FUNCTION IDENTITY))) NIL NIL NIL NIL NIL NIL T
:pinfo TYPE-MACRO-EXPANSION-FUNCTION (S) NIL (TYPE-MACRO) NIL (LAMBDA (S) (DECLARE) (BLOCK TYPE-MACRO-EXPANSION-FUNCTION (STRUCTURE-ELT S 2))) NIL T T
:finfo MULTIPLY "multiply" (X Y) (SUM) (T T) (T)
:pinfo GET-DISPATCH-MACRO-CHARACTER (DISP-CHAR SUB-CHAR &OPTIONAL (RT *READTABLE*)) NIL NIL NIL NIL NIL NIL T
:pinfo REPORT-FUNCTION-FOR-ABORT-FAILURE-ANONYMOUS (STREAM) NIL NIL NIL NIL NIL NIL T
:pinfo SLEEP (N) NIL NIL NIL NIL NIL NIL T
:pinfo OBJECT->POINTER (X) NIL NIL NIL NIL NIL NIL T
:pinfo TRACE-FUNCTIONS (NAMES) NIL NIL NIL NIL NIL NIL T
:pinfo SET-STRING-STREAM-LISTEN-METHOD!@$ (S VALUE) NIL (STRING-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STRING-STREAM-LISTEN-METHOD!@$ (SET-STRUCTURE-ELT S 14 VALUE))) NIL T T
:pinfo INTERACTIVE-STREAM-LISTEN-METHOD (S) NIL (INTERACTIVE-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK INTERACTIVE-STREAM-LISTEN-METHOD (STRUCTURE-ELT S 14))) NIL T T
:pinfo UNCOMPILE (NAME) NIL NIL NIL NIL NIL NIL T
:pinfo ECHO-STRING-UNREAD-CHAR-METHOD (S) NIL (ECHO-STRING) NIL (LAMBDA (S) (DECLARE) (BLOCK ECHO-STRING-UNREAD-CHAR-METHOD (STRUCTURE-ELT S 13))) NIL T T
:pinfo CHECK-TYPE-ERROR (PLACE VALUE TYPE &OPTIONAL STRING) NIL NIL NIL NIL NIL NIL T
:pinfo SET-TERMINAL-STREAM-WRITE-BYTE-METHOD!@$ (S VALUE) NIL (TERMINAL-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TERMINAL-STREAM-WRITE-BYTE-METHOD!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo SET-USER-DEFINED-STREAM-ELEMENT-SIZE!@$ (S VALUE) NIL (USER-DEFINED-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-USER-DEFINED-STREAM-ELEMENT-SIZE!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo INTERNAL-SIMPLE-ERROR-FORMAT-ARGUMENTS (S) NIL (SIMPLE-ERROR) NIL (LAMBDA (S) (DECLARE) (BLOCK INTERNAL-SIMPLE-ERROR-FORMAT-ARGUMENTS (STRUCTURE-ELT S 3))) NIL T T
:pinfo SET-STRUCT-INFO-PRINT-FUNCTION-LAMBDA-EXPR!@$ (S VALUE) NIL (STRUCT-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STRUCT-INFO-PRINT-FUNCTION-LAMBDA-EXPR!@$ (SET-STRUCTURE-ELT S 16 VALUE))) NIL T T
:pinfo SET-STRUCT-INFO-INHERITED-SLOT-OVERRIDES!@$ (S VALUE) NIL (STRUCT-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STRUCT-INFO-INHERITED-SLOT-OVERRIDES!@$ (SET-STRUCTURE-ELT S 17 VALUE))) NIL T T
:finfo MAKE_EVAL_CLOSURE "make_eval_closure" (NAME FORMAL-ARGS BODY VENV FENV TENV BENV) (CLOSURE) (T T T T T T T) (T)
:pinfo ED (&OPTIONAL PATHNAME) NIL NIL NIL NIL NIL NIL T
:pinfo FLOATING-POINT-UNDERFLOW-OPERANDS (S) NIL (FLOATING-POINT-UNDERFLOW) NIL (LAMBDA (S) (DECLARE) (BLOCK FLOATING-POINT-UNDERFLOW-OPERANDS (STRUCTURE-ELT S 3))) NIL T T
:pinfo FLUID-SERIOUS-CONDITION-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo LOGIOR/2 (X Y) NIL (FIXNUM FIXNUM) NIL (LAMBDA (X Y) (DECLARE) (BLOCK LOGIOR/2 (%LOGIOR X Y))) NIL T T
:pinfo PACKAGES_INIT1005 NIL NIL NIL NIL NIL NIL NIL T
:pinfo EQ (X Y) NIL NIL NIL (LAMBDA (X Y) (DECLARE) (BLOCK EQ (%EQ X Y))) NIL T T
:pinfo SET-INTERNAL-SIMPLE-WARNING-FORMAT-ARGUMENTS!@$ (S VALUE) NIL (SIMPLE-WARNING T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INTERNAL-SIMPLE-WARNING-FORMAT-ARGUMENTS!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo LINE-NUMBER-STREAM-PATHNAME (S) NIL (LINE-NUMBER-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK LINE-NUMBER-STREAM-PATHNAME (STRUCTURE-ELT S 15))) NIL T T
:pinfo INVOKE-DEBUGGER-1 (CONDITION) NIL NIL NIL NIL NIL NIL T
:pinfo VECTOR-BOUNDS-ERROR (V INDEX) NIL NIL NIL NIL NIL NIL T
:pinfo LOGORC1 (I1 I2) NIL NIL NIL (LAMBDA (I1 I2) (DECLARE) (BLOCK LOGORC1 (LOGIOR (LOGNOT I1) I2))) NIL T T
:pinfo LOGORC2 (I1 I2) NIL NIL NIL (LAMBDA (I1 I2) (DECLARE) (BLOCK LOGORC2 (LOGIOR I1 (LOGNOT I2)))) NIL T T
:pinfo LIST*-1 (REST) NIL NIL NIL NIL NIL NIL T
:pinfo SET-STRING-STREAM-WRITE-CHAR-METHOD!@$ (S VALUE) NIL (STRING-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STRING-STREAM-WRITE-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo LDB/FIXNUM (SIZE POSITION N) NIL NIL NIL (LAMBDA (SIZE POSITION N) (DECLARE) (BLOCK LDB/FIXNUM (%LOAD-FIELD (%FIELD-MASK SIZE) POSITION N))) NIL T T
:pinfo CAAADR (C) NIL NIL NIL (LAMBDA (C) (DECLARE) (BLOCK CAAADR (CAR (CAR (CAR (CDR C)))))) NIL T T
:pinfo CDDDDR (C) NIL NIL NIL (LAMBDA (C) (DECLARE) (BLOCK CDDDDR (CDR (CDR (CDR (CDR C)))))) NIL T T
:pinfo LISTEN/FPTR-STREAM (STREAM) NIL NIL NIL NIL NIL NIL T
:pinfo FLUID-LAMBDA-LIST-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-USER-STREAM-OUTPUT-SINK!@$ (S VALUE) NIL (USER-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-USER-STREAM-OUTPUT-SINK!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo FILL (SEQUENCE ITEM &KEY (START 0) END) NIL NIL NIL NIL NIL NIL T
:pinfo DELETE-LIST-FORWARD (ITEM LIST TEST START END COUNT) NIL NIL NIL NIL NIL NIL T
:pinfo SET-PACKAGE-NICKNAMES-LIST!@$ (S VALUE) NIL (PACKAGE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PACKAGE-NICKNAMES-LIST!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo SET-LINE-NUMBER-STREAM-WRITE-SIMPLE-STRING-METHOD!@$ (S VALUE) NIL (LINE-NUMBER-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-LINE-NUMBER-STREAM-WRITE-SIMPLE-STRING-METHOD!@$ (SET-STRUCTURE-ELT S 10 VALUE))) NIL T T
:pinfo LINE-NUMBER-STREAM-WRITE-FLOAT-METHOD (S) NIL (LINE-NUMBER-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK LINE-NUMBER-STREAM-WRITE-FLOAT-METHOD (STRUCTURE-ELT S 9))) NIL T T
:pinfo SET-STRING-STREAM-PEEK-CHAR-METHOD!@$ (S VALUE) NIL (STRING-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STRING-STREAM-PEEK-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 12 VALUE))) NIL T T
:pinfo STRUCT-INFO-COPIER (S) NIL (STRUCT-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK STRUCT-INFO-COPIER (STRUCTURE-ELT S 9))) NIL T T
:pinfo COPY-MACRO-ENV (S) NIL NIL NIL NIL NIL NIL T
:pinfo DIRENT-OFFSET (S) NIL NIL NIL (LAMBDA (S) (DECLARE) (BLOCK DIRENT-OFFSET (C-STRUCT-REF S DIRENT OFFSET))) NIL T T
:pinfo REVAPPEND (X Y) NIL NIL NIL NIL NIL NIL T
:finfo DOUBLE_COS "cos" (X) (R) (DOUBLE) (DOUBLE)
:pinfo COPY-PHYSICAL-PATHNAME (S) NIL NIL NIL NIL NIL NIL T
:pinfo FORMAT-EXPONENT-MARKER (NUMBER) NIL NIL NIL NIL NIL NIL T
:pinfo SIMPLE-CONDITION-FORMAT-ARGUMENTS (CONDITION) NIL NIL NIL NIL NIL NIL T
:pinfo LINE-NUMBER-STREAM-ELEMENT-SIZE (S) NIL (LINE-NUMBER-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK LINE-NUMBER-STREAM-ELEMENT-SIZE (STRUCTURE-ELT S 2))) NIL T T
:pinfo INTERACTIVE-STREAM-UNREAD-CHAR-METHOD (S) NIL (INTERACTIVE-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK INTERACTIVE-STREAM-UNREAD-CHAR-METHOD (STRUCTURE-ELT S 13))) NIL T T
:pinfo PROBE-FILE (PATHNAME) NIL NIL NIL NIL NIL NIL T
:pinfo HASH-TABLE-REHASH-SIZE (S) NIL (HASH-TABLE) NIL (LAMBDA (S) (DECLARE) (BLOCK HASH-TABLE-REHASH-SIZE (STRUCTURE-ELT S 6))) NIL T T
:pinfo SET-LINE-NUMBER-STREAM-PEEK-CHAR-METHOD!@$ (S VALUE) NIL (LINE-NUMBER-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-LINE-NUMBER-STREAM-PEEK-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 12 VALUE))) NIL T T
:pinfo INSPECT-STRUCTURE (X) NIL NIL NIL NIL NIL NIL T
:pinfo MISC_INIT991 NIL NIL NIL NIL NIL NIL NIL T
:pinfo SET-USER-STREAM-ELEMENT-TYPE!@$ (S VALUE) NIL (USER-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-USER-STREAM-ELEMENT-TYPE!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-PHYSICAL-PATHNAME-TYPE!@$ (S VALUE) NIL (PHYSICAL-PATHNAME T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PHYSICAL-PATHNAME-TYPE!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo SET-CHAR-SYNTAX (RT CHAR VALUE) NIL NIL NIL NIL NIL NIL T
:pinfo SET-LINE-NUMBER-STREAM-PATHNAME!@$ (S VALUE) NIL (LINE-NUMBER-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-LINE-NUMBER-STREAM-PATHNAME!@$ (SET-STRUCTURE-ELT S 15 VALUE))) NIL T T
:pinfo MAKE-MULTI-ARRAY (DIMS ELEMENT-TYPE-TAG ELEMENT-SIZE ARRAY-TYPE-TAG LEN DISPLACED-TO DISPLACED-INDEX-OFFSET) NIL NIL NIL NIL NIL NIL T
:pinfo SET-PHYSICAL-PATHNAME-DIRECTORY!@$ (S VALUE) NIL (PHYSICAL-PATHNAME T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PHYSICAL-PATHNAME-DIRECTORY!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo GET-DECODED-TIME NIL NIL NIL NIL NIL NIL NIL T
:pinfo LINE-NUMBER-STREAM-WRITE-BYTE-METHOD (S) NIL (LINE-NUMBER-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK LINE-NUMBER-STREAM-WRITE-BYTE-METHOD (STRUCTURE-ELT S 7))) NIL T T
:pinfo SET-STRUCT-INFO-NAME!@$ (S VALUE) NIL (STRUCT-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STRUCT-INFO-NAME!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-STREAM-OUTPUT-SINK!@$ (S VALUE) NIL (STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STREAM-OUTPUT-SINK!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo SET-FPTR-STREAM-UNREAD-CHAR-METHOD!@$ (S VALUE) NIL (FPTR-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FPTR-STREAM-UNREAD-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 13 VALUE))) NIL T T
:pinfo SET-FILE-ERROR-PATHNAME!@$ (S VALUE) NIL (FILE-ERROR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FILE-ERROR-PATHNAME!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo COPY-TERMINAL-STREAM (S) NIL NIL NIL NIL NIL NIL T
:pinfo STRUCT-INFO-INHERITED-SLOT-OVERRIDES (S) NIL (STRUCT-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK STRUCT-INFO-INHERITED-SLOT-OVERRIDES (STRUCTURE-ELT S 17))) NIL T T
:pinfo FLUID-MACRO-CHAR-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo ILLEGAL-ELEMENT-TYPE (A ELEMENT) NIL NIL NIL NIL NIL NIL T
:pinfo STREAM-WRITE-CHAR-METHOD (S) NIL (STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK STREAM-WRITE-CHAR-METHOD (STRUCTURE-ELT S 5))) NIL T T
:pinfo ECHO-STRING-ELEMENT-TYPE (S) NIL (ECHO-STRING) NIL (LAMBDA (S) (DECLARE) (BLOCK ECHO-STRING-ELEMENT-TYPE (STRUCTURE-ELT S 1))) NIL T T
:pinfo CONCATENATED-STREAM-WRITE-SIMPLE-STRING-METHOD (S) NIL (CONCATENATED-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK CONCATENATED-STREAM-WRITE-SIMPLE-STRING-METHOD (STRUCTURE-ELT S 10))) NIL T T
:pinfo SET-HASH-TABLE-SIZE!@$ (S VALUE) NIL (HASH-TABLE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-HASH-TABLE-SIZE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SOME (PREDICATE FIRST-SEQUENCE &REST MORE-SEQUENCES) NIL NIL NIL NIL NIL NIL T
:pinfo BYTE-POSITION (S) NIL (BYTE) NIL (LAMBDA (S) (DECLARE) (BLOCK BYTE-POSITION (STRUCTURE-ELT S 2))) NIL T T
:pinfo SET-INTERACTIVE-STREAM-READ-CHAR-METHOD!@$ (S VALUE) NIL (INTERACTIVE-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INTERACTIVE-STREAM-READ-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo LOOP-LIST-STEPPER (VAR VAL DATA-TYPE? FN) NIL NIL NIL NIL NIL NIL T
:pinfo STRING-STREAM-LISTEN-METHOD (S) NIL (STRING-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK STRING-STREAM-LISTEN-METHOD (STRUCTURE-ELT S 14))) NIL T T
:pinfo NREVERSE (S) NIL NIL NIL NIL NIL NIL T
:pinfo RPLACA (C NEW-CAR) NIL NIL NIL (LAMBDA (C NEW-CAR) (DECLARE) (BLOCK RPLACA (SET-CAR C NEW-CAR) C)) NIL T T
:pinfo EIGHTH (LIST) NIL NIL NIL (LAMBDA (LIST) (DECLARE) (BLOCK EIGHTH (NTH 7 LIST))) NIL T T
:pinfo RPLACD (C NEW-CDR) NIL NIL NIL (LAMBDA (C NEW-CDR) (DECLARE) (BLOCK RPLACD (SET-CDR C NEW-CDR) C)) NIL T T
:pinfo SET-BROADCAST-STREAM-INPUT-SOURCE!@$ (S VALUE) NIL (BROADCAST-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-BROADCAST-STREAM-INPUT-SOURCE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SET-TERMINAL-STREAM-READ-BYTE-METHOD!@$ (S VALUE) NIL (TERMINAL-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TERMINAL-STREAM-READ-BYTE-METHOD!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo ARRAY-HAS-FILL-POINTER-P (A) NIL NIL NIL (LAMBDA (A) (DECLARE) (BLOCK ARRAY-HAS-FILL-POINTER-P (VECTOR-WITH-FILL-POINTER-P A))) NIL T T
:pinfo SET-STRING-STREAM-WRITE-SIMPLE-STRING-METHOD!@$ (S VALUE) NIL (STRING-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STRING-STREAM-WRITE-SIMPLE-STRING-METHOD!@$ (SET-STRUCTURE-ELT S 10 VALUE))) NIL T T
:pinfo SET-STRUCT-INFO-REPORT-FUNCTION-LAMBDA-EXPR!@$ (S VALUE) NIL (STRUCT-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STRUCT-INFO-REPORT-FUNCTION-LAMBDA-EXPR!@$ (SET-STRUCTURE-ELT S 19 VALUE))) NIL T T
:pinfo BROADCAST-STREAM-ELEMENT-TYPE (S) NIL (BROADCAST-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK BROADCAST-STREAM-ELEMENT-TYPE (STRUCTURE-ELT S 1))) NIL T T
:pinfo USER-DEFINED-STREAM-WRITE-BYTE-METHOD (S) NIL (USER-DEFINED-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK USER-DEFINED-STREAM-WRITE-BYTE-METHOD (STRUCTURE-ELT S 7))) NIL T T
:pinfo LINE-NUMBER-STREAM-FORCE-OUTPUT-METHOD (S) NIL (LINE-NUMBER-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK LINE-NUMBER-STREAM-FORCE-OUTPUT-METHOD (STRUCTURE-ELT S 11))) NIL T T
:pinfo SET-STRUCT-INFO-CONC-NAME!@$ (S VALUE) NIL (STRUCT-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STRUCT-INFO-CONC-NAME!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo UNIX->UNIVERSAL-TIME (TIME) NIL NIL NIL NIL NIL NIL T
:pinfo FLUID-RESTART-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo INSPECT-FOREIGN-POINTER (X) NIL NIL NIL NIL NIL NIL T
:pinfo SET-32BIT-VREF (V I VALUE) NIL (32BIT-VECTOR FIXNUM T) NIL NIL NIL NIL T
:pinfo SET-STREAM-INPUT-SOURCE!@$ (S VALUE) NIL (STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STREAM-INPUT-SOURCE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SET-STREAM-WRITE-FLOAT-METHOD!@$ (S VALUE) NIL (STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STREAM-WRITE-FLOAT-METHOD!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo PARSE-LAMBDA-LIST/4 (ORIG REST CURRENT ORDER INFO) NIL NIL NIL NIL NIL NIL T
:pinfo LAMBDA-LIST-REQUIREDS (S) NIL (LAMBDA-LIST) NIL (LAMBDA (S) (DECLARE) (BLOCK LAMBDA-LIST-REQUIREDS (STRUCTURE-ELT S 1))) NIL T T
:pinfo SET-STREAM-ERROR-STREAM!@$ (S VALUE) NIL (STREAM-ERROR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STREAM-ERROR-STREAM!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo FLUID-PROGRAM-ERROR-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo FILL-STRING-WITH-INTEGER (EXTRA NEXT INTEGER) NIL NIL NIL NIL NIL NIL T
:pinfo VECTORP (X) NIL NIL NIL (LAMBDA (X) (DECLARE) (BLOCK VECTORP (%TAG_MASK= X VECTOR-TAG-MASK VECTOR-TAG))) NIL T T
:pinfo EXPAND-NAMED-FUNCTION (FORM) NIL NIL NIL NIL NIL NIL T
:pinfo CONCATENATED-STREAM-WRITE-CHAR-METHOD (S) NIL (CONCATENATED-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK CONCATENATED-STREAM-WRITE-CHAR-METHOD (STRUCTURE-ELT S 5))) NIL T T
:pinfo TWO-WAY-STREAM-WRITE-BYTE-METHOD (S) NIL (TWO-WAY-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK TWO-WAY-STREAM-WRITE-BYTE-METHOD (STRUCTURE-ELT S 7))) NIL T T
:pinfo NULL-STRING->NIL (STRING) NIL NIL NIL NIL NIL NIL T
:pinfo SET-TWO-WAY-STREAM-WRITE-CHAR-METHOD!@$ (S VALUE) NIL (TWO-WAY-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TWO-WAY-STREAM-WRITE-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo PWD NIL NIL NIL NIL NIL NIL NIL T
:pinfo ARRAY-ELEMENT-TYPE-TAG->DEFAULT-INITIAL-ELEMENT (TYPE-TAG) NIL NIL NIL NIL NIL NIL T
:pinfo SYMBOL-FUNCTION (SYMBOL) NIL NIL NIL NIL NIL NIL T
:pinfo ECHO-STRING-INPUT-SOURCE (S) NIL (ECHO-STRING) NIL (LAMBDA (S) (DECLARE) (BLOCK ECHO-STRING-INPUT-SOURCE (STRUCTURE-ELT S 3))) NIL T T
:pinfo PERCENTAGE (X Y) NIL NIL NIL NIL NIL NIL T
:pinfo SET-TYPE-MACRO-ORIGINAL-ARG-LIST!@$ (S VALUE) NIL (TYPE-MACRO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TYPE-MACRO-ORIGINAL-ARG-LIST!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo FORCE-OUTPUT/1 (STREAM) NIL NIL NIL NIL NIL NIL T
:pinfo COPY-SYMBOL (SYMBOL) NIL NIL NIL NIL NIL NIL T
:pinfo LAMBDA-LIST-SPECIALS (S) NIL (LAMBDA-LIST) NIL (LAMBDA (S) (DECLARE) (BLOCK LAMBDA-LIST-SPECIALS (STRUCTURE-ELT S 7))) NIL T T
:pinfo SET-FLOATING-POINT-UNDERFLOW--DUMMY-SLOT-!@$ (S VALUE) NIL (FLOATING-POINT-UNDERFLOW T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FLOATING-POINT-UNDERFLOW--DUMMY-SLOT-!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo LOOP-FOR-ARITHMETIC (VAR VAL DATA-TYPE? KWD) NIL NIL NIL NIL NIL NIL T
:pinfo SET-LAMBDA-LIST-SPECIALS!@$ (S VALUE) NIL (LAMBDA-LIST T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-LAMBDA-LIST-SPECIALS!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo FEATURE? (X) NIL NIL NIL NIL NIL NIL T
:pinfo SET-DISPATCH-MACRO-CHAR-NON-TERMINATING?!@$ (S VALUE) NIL (DISPATCH-MACRO-CHAR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DISPATCH-MACRO-CHAR-NON-TERMINATING?!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SET-ARITHMETIC-ERROR--DUMMY-SLOT-!@$ (S VALUE) NIL (ARITHMETIC-ERROR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-ARITHMETIC-ERROR--DUMMY-SLOT-!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-TERMINAL-STREAM-UNREAD-CHAR-METHOD!@$ (S VALUE) NIL (TERMINAL-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TERMINAL-STREAM-UNREAD-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 13 VALUE))) NIL T T
:pinfo SET-ECHO-STRING-UNREAD-CHAR-METHOD!@$ (S VALUE) NIL (ECHO-STRING T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-ECHO-STRING-UNREAD-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 13 VALUE))) NIL T T
:pinfo BROADCAST-STREAM-WRITE-CHAR-METHOD (S) NIL (BROADCAST-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK BROADCAST-STREAM-WRITE-CHAR-METHOD (STRUCTURE-ELT S 5))) NIL T T
:pinfo BROADCAST-STREAM-INPUT-SOURCE (S) NIL (BROADCAST-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK BROADCAST-STREAM-INPUT-SOURCE (STRUCTURE-ELT S 3))) NIL T T
:pinfo SET-MACRO-CHAR-NON-TERMINATING?!@$ (S VALUE) NIL (MACRO-CHAR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-MACRO-CHAR-NON-TERMINATING?!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo STRING-STREAM-WRITE-CHAR-METHOD (S) NIL (STRING-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK STRING-STREAM-WRITE-CHAR-METHOD (STRUCTURE-ELT S 5))) NIL T T
:pinfo PROMPT-FOR-VALUE (STREAM) NIL NIL NIL NIL NIL NIL T
:pinfo MAKE-RESTART (&KEY (NAME NIL) (FUNCTION NIL) (REPORT-FUNCTION NIL) (INTERACTIVE-FUNCTION NIL)) NIL NIL NIL (LAMBDA (&KEY (NAME NIL) (FUNCTION NIL) (REPORT-FUNCTION NIL) (INTERACTIVE-FUNCTION NIL)) (DECLARE) (BLOCK MAKE-RESTART (MAKE-RESTART/4 NAME FUNCTION REPORT-FUNCTION INTERACTIVE-FUNCTION))) NIL T T
:pinfo SET-ARITHMETIC-ERROR-OPERANDS!@$ (S VALUE) NIL (ARITHMETIC-ERROR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-ARITHMETIC-ERROR-OPERANDS!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SIMPLE-ASSERTION-FAILURE (ASSERTION) NIL NIL NIL NIL NIL NIL T
:pinfo SET-SYNONYM-STREAM-WRITE-BYTE-METHOD!@$ (S VALUE) NIL (SYNONYM-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SYNONYM-STREAM-WRITE-BYTE-METHOD!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo USER-STREAM-OUTPUT-SINK (S) NIL (USER-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK USER-STREAM-OUTPUT-SINK (STRUCTURE-ELT S 4))) NIL T T
:pinfo FLUID-CONCATENATED-STREAM-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-INTERACTIVE-STREAM-OUTPUT-SINK!@$ (S VALUE) NIL (INTERACTIVE-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INTERACTIVE-STREAM-OUTPUT-SINK!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo SYNONYM-STREAM-WRITE-FLOAT-METHOD (S) NIL (SYNONYM-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK SYNONYM-STREAM-WRITE-FLOAT-METHOD (STRUCTURE-ELT S 9))) NIL T T
:pinfo FDEFINITION (F) NIL (FUNCTION-SPECIFIER) NIL NIL NIL NIL T
:pinfo STRUCT-INFO-PRINT-FUNCTION (S) NIL (STRUCT-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK STRUCT-INFO-PRINT-FUNCTION (STRUCTURE-ELT S 10))) NIL T T
:pinfo INSPECT-NUMBER (X) NIL NIL NIL NIL NIL NIL T
:pinfo SXHASH/CHARACTER (X) NIL NIL NIL (LAMBDA (X) (DECLARE) (BLOCK SXHASH/CHARACTER (CHAR-CODE X))) NIL T T
:pinfo SET-TWO-WAY-STREAM-PEEK-CHAR-METHOD!@$ (S VALUE) NIL (TWO-WAY-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TWO-WAY-STREAM-PEEK-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 12 VALUE))) NIL T T
:pinfo FORMAT-PRINT-SMALL-CARDINAL (N) NIL NIL NIL NIL NIL NIL T
:pinfo ARRAY-ELEMENT-TYPE (A) NIL NIL NIL NIL NIL NIL T
:pinfo USER-DEFINED-STREAM-READ-BYTE-METHOD (S) NIL (USER-DEFINED-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK USER-DEFINED-STREAM-READ-BYTE-METHOD (STRUCTURE-ELT S 8))) NIL T T
:pinfo SET-STRING-STREAM-READ-BYTE-METHOD!@$ (S VALUE) NIL (STRING-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STRING-STREAM-READ-BYTE-METHOD!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo SUBST (NEW OLD TREE) NIL NIL NIL NIL NIL NIL T
:pinfo WHITESPACE-CHAR-P (CHAR) NIL NIL NIL NIL NIL NIL T
:pinfo EXPAND-MV-BIND (FORM) NIL NIL NIL NIL NIL NIL T
:pinfo SQRT (X) NIL NIL NIL NIL NIL NIL T
:pinfo SET-ABORT-FAILURE--DUMMY-SLOT-!@$ (S VALUE) NIL (ABORT-FAILURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-ABORT-FAILURE--DUMMY-SLOT-!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SOFTWARE-TYPE NIL NIL NIL NIL NIL NIL NIL T
:pinfo SET-LINE-NUMBER-STREAM-READ-BYTE-METHOD!@$ (S VALUE) NIL (LINE-NUMBER-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-LINE-NUMBER-STREAM-READ-BYTE-METHOD!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo CONSTRUCTOR-FOR-STORAGE-CONDITION/1 (-DUMMY-SLOT-) NIL NIL NIL NIL NIL NIL T
:pinfo SET-HASH-TABLE-REHASH-SIZE!@$ (S VALUE) NIL (HASH-TABLE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-HASH-TABLE-REHASH-SIZE!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo SYNONYM-STREAM-WRITE-CHAR-METHOD (S) NIL (SYNONYM-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK SYNONYM-STREAM-WRITE-CHAR-METHOD (STRUCTURE-ELT S 5))) NIL T T
:pinfo SET-USER-DEFINED-STREAM-FORCE-OUTPUT-METHOD!@$ (S VALUE) NIL (USER-DEFINED-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-USER-DEFINED-STREAM-FORCE-OUTPUT-METHOD!@$ (SET-STRUCTURE-ELT S 11 VALUE))) NIL T T
:pinfo TOKEN->FLOAT (BUFFER) NIL NIL NIL NIL NIL NIL T
:pinfo REMOVE-TYPE-MACRO-EXPANDER (NAME) NIL NIL NIL NIL NIL NIL T
:pinfo NAMESTRING (NAME) NIL NIL NIL NIL NIL NIL T
:pinfo SET-STREAM-READ-CHAR-METHOD!@$ (S VALUE) NIL (STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STREAM-READ-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo SET-FILE-STREAM-UNREAD-CHAR-METHOD!@$ (S VALUE) NIL (FILE-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FILE-STREAM-UNREAD-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 13 VALUE))) NIL T T
:pinfo SET-MACRO-CHARACTER (CHAR FUNCTION &OPTIONAL NON-TERMINATING? (RT *READTABLE*)) NIL NIL NIL NIL NIL NIL T
:pinfo SVREF (V I) NIL (SIMPLE-VECTOR FIXNUM) NIL NIL NIL NIL T
:pinfo REPL NIL NIL NIL NIL NIL NIL NIL T
:pinfo GRAPHIC-CHAR-P (CHAR) NIL NIL NIL NIL NIL NIL T
:pinfo FOREIGN_INIT644 NIL NIL NIL NIL NIL NIL NIL T
:pinfo INTERACTIVE-STREAM-ELEMENT-SIZE (S) NIL (INTERACTIVE-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK INTERACTIVE-STREAM-ELEMENT-SIZE (STRUCTURE-ELT S 2))) NIL T T
:pinfo ENSURE-FIXNUM (N) NIL NIL NIL NIL NIL NIL T
:pinfo INTERNAL-SIMPLE-TYPE-ERROR--DUMMY-SLOT- (S) NIL (SIMPLE-TYPE-ERROR) NIL (LAMBDA (S) (DECLARE) (BLOCK INTERNAL-SIMPLE-TYPE-ERROR--DUMMY-SLOT- (STRUCTURE-ELT S 1))) NIL T T
:pinfo SYNONYM-STREAM-PEEK-CHAR-METHOD (S) NIL (SYNONYM-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK SYNONYM-STREAM-PEEK-CHAR-METHOD (STRUCTURE-ELT S 12))) NIL T T
:pinfo ERROR--DUMMY-SLOT- (S) NIL (ERROR) NIL (LAMBDA (S) (DECLARE) (BLOCK ERROR--DUMMY-SLOT- (STRUCTURE-ELT S 1))) NIL T T
:pinfo INTERNAL-SIMPLE-WARNING--DUMMY-SLOT- (S) NIL (SIMPLE-WARNING) NIL (LAMBDA (S) (DECLARE) (BLOCK INTERNAL-SIMPLE-WARNING--DUMMY-SLOT- (STRUCTURE-ELT S 1))) NIL T T
:pinfo SET--DUMMY-SLOT-!@$ (S VALUE) NIL (CONDITION T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET--DUMMY-SLOT-!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo STRUCT-INFO-INCLUDE (S) NIL (STRUCT-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK STRUCT-INFO-INCLUDE (STRUCTURE-ELT S 7))) NIL T T
:pinfo SYMBOL-HASH-CODE (SYMBOL) NIL (SYMBOL) NIL (LAMBDA (SYMBOL) (DECLARE) (BLOCK SYMBOL-HASH-CODE (%SYMREF SYMBOL SYMBOL-HASHCODE-OFFSET))) NIL T T
:pinfo BROADCAST-STREAM-READ-BYTE-METHOD (S) NIL (BROADCAST-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK BROADCAST-STREAM-READ-BYTE-METHOD (STRUCTURE-ELT S 8))) NIL T T
:pinfo STRUCTURE-TYPE (S) NIL (STRUCTURE) NIL (LAMBDA (S) (DECLARE) (BLOCK STRUCTURE-TYPE (%32BIT-REF S 0))) NIL T T
:pinfo SET-INTERNAL-SIMPLE-WARNING-FORMAT-STRING!@$ (S VALUE) NIL (SIMPLE-WARNING T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INTERNAL-SIMPLE-WARNING-FORMAT-STRING!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo PACKAGE-SHADOWING-SYMBOLS (S) NIL (PACKAGE) NIL (LAMBDA (S) (DECLARE) (BLOCK PACKAGE-SHADOWING-SYMBOLS (STRUCTURE-ELT S 5))) NIL T T
:pinfo INSPECT-DOTTED-LIST (X) NIL NIL NIL NIL NIL NIL T
:pinfo SET-INTERACTIVE-STREAM-UNREAD-CHAR-METHOD!@$ (S VALUE) NIL (INTERACTIVE-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INTERACTIVE-STREAM-UNREAD-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 13 VALUE))) NIL T T
:pinfo CONSTRUCTOR-FOR-STACK-OVERFLOW/1 (-DUMMY-SLOT-) NIL NIL NIL NIL NIL NIL T
:pinfo ECHO-STRING-READ-CHAR-METHOD (S) NIL (ECHO-STRING) NIL (LAMBDA (S) (DECLARE) (BLOCK ECHO-STRING-READ-CHAR-METHOD (STRUCTURE-ELT S 6))) NIL T T
:pinfo FLUID-INTERACTIVE-STREAM-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo FILE-AUTHOR (STREAM) NIL (FILE-STREAM) NIL NIL NIL NIL T
:pinfo SET-DOCUMENTATION (NAME TYPE STRING) NIL NIL NIL NIL NIL NIL T
:pinfo SET-SYMBOL-FLAG (S FLAG) NIL (SYMBOL FIXNUM) NIL NIL NIL NIL T
:pinfo MOD (X Y) NIL NIL NIL NIL NIL NIL T
:pinfo FLUID-SIMPLE-TYPE-ERROR-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo FLUID-STORAGE-CONDITION-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo STRUCTURE-ELT (S I) NIL NIL NIL (LAMBDA (S I) (DECLARE) (BLOCK STRUCTURE-ELT (%STRUCTURE-ELT S I))) NIL T T
:pinfo NORMALIZE-TYPE (TYPE) NIL NIL NIL NIL NIL NIL T
:pinfo STRING-BUFFER->SIMPLE-STRING (BUFFER) NIL NIL NIL NIL NIL NIL T
:pinfo SET-INTERNAL-SIMPLE-TYPE-ERROR-EXPECTED-TYPE!@$ (S VALUE) NIL (SIMPLE-TYPE-ERROR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INTERNAL-SIMPLE-TYPE-ERROR-EXPECTED-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo FIXNUMP (X) NIL NIL NIL (LAMBDA (X) (DECLARE) (BLOCK FIXNUMP (%FIXNUMP X))) NIL T T
:pinfo COPY-CONDITION (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-INTERNAL-SIMPLE-TYPE-ERROR-FORMAT-STRING!@$ (S VALUE) NIL (SIMPLE-TYPE-ERROR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INTERNAL-SIMPLE-TYPE-ERROR-FORMAT-STRING!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo USER-STREAM-WRITE-FLOAT-METHOD (S) NIL (USER-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK USER-STREAM-WRITE-FLOAT-METHOD (STRUCTURE-ELT S 9))) NIL T T
:pinfo FLUID-USER-STREAM-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo HOST-NAMESTRING (FILE) NIL NIL NIL NIL NIL NIL T
:pinfo SET-INTERNAL-SIMPLE-CONDITION-FORMAT-ARGUMENTS!@$ (S VALUE) NIL (SIMPLE-CONDITION T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INTERNAL-SIMPLE-CONDITION-FORMAT-ARGUMENTS!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SIXTH (LIST) NIL NIL NIL (LAMBDA (LIST) (DECLARE) (BLOCK SIXTH (NTH 5 LIST))) NIL T T
:pinfo STRING-CHAR-P (X) NIL NIL NIL (LAMBDA (X) (DECLARE) (BLOCK STRING-CHAR-P (CHARACTERP X))) NIL T T
:pinfo SET-FILL-POINTER (V VALUE) NIL (VECTOR FIXNUM) NIL (LAMBDA (V VALUE) (DECLARE) (BLOCK SET-FILL-POINTER (%32BIT-DEF V VECTOR-FILL-POINTER-OFFSET VALUE) VALUE)) NIL T T
:pinfo MAKE-DIRDESC (&KEY FILE-DESC LOC SIZE BSIZE OFF DATA-BUFFER) NIL NIL NIL NIL NIL NIL T
:pinfo SET-SYNONYM-STREAM-READ-CHAR-METHOD!@$ (S VALUE) NIL (SYNONYM-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SYNONYM-STREAM-READ-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo FLUID-DISPATCH-MACRO-CHAR-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo GET-STRING-STREAM NIL NIL NIL NIL NIL NIL NIL T
:finfo FULL_GC "full_gc" NIL (V) NIL (VOID)
:pinfo SET-PACKAGE-STATIC-ABBREVIATION!@$ (S VALUE) NIL (PACKAGE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PACKAGE-STATIC-ABBREVIATION!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo PATHNAME-DIRECTORY (P) NIL NIL NIL NIL NIL NIL T
:pinfo BROADCAST-STREAM-LISTEN-METHOD (S) NIL (BROADCAST-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK BROADCAST-STREAM-LISTEN-METHOD (STRUCTURE-ELT S 14))) NIL T T
:pinfo FOREIGN-POINTER-TYPE (X) NIL NIL NIL (LAMBDA (X) (DECLARE) (BLOCK FOREIGN-POINTER-TYPE (%32BIT-REF X 1))) NIL T T
:pinfo SET-CONCATENATED-STREAM-PEEK-CHAR-METHOD!@$ (S VALUE) NIL (CONCATENATED-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONCATENATED-STREAM-PEEK-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 12 VALUE))) NIL T T
:pinfo INTERACTIVE-STREAM-WRITE-BYTE-METHOD (S) NIL (INTERACTIVE-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK INTERACTIVE-STREAM-WRITE-BYTE-METHOD (STRUCTURE-ELT S 7))) NIL T T
:pinfo LOOP-WHEN-IT-VARIABLE NIL NIL NIL NIL NIL NIL NIL T
:pinfo HASH-TABLE-SIZE (S) NIL (HASH-TABLE) NIL (LAMBDA (S) (DECLARE) (BLOCK HASH-TABLE-SIZE (STRUCTURE-ELT S 3))) NIL T T
:pinfo ECHO-STRING-WRITE-FLOAT-METHOD (S) NIL (ECHO-STRING) NIL (LAMBDA (S) (DECLARE) (BLOCK ECHO-STRING-WRITE-FLOAT-METHOD (STRUCTURE-ELT S 9))) NIL T T
:pinfo SET-TWO-WAY-STREAM-READ-BYTE-METHOD!@$ (S VALUE) NIL (TWO-WAY-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TWO-WAY-STREAM-READ-BYTE-METHOD!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo SET-FLOATING-POINT-UNDERFLOW-OPERATION!@$ (S VALUE) NIL (FLOATING-POINT-UNDERFLOW T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FLOATING-POINT-UNDERFLOW-OPERATION!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo PHYSICAL-PATHNAME-DIRECTORY (S) NIL (PHYSICAL-PATHNAME) NIL (LAMBDA (S) (DECLARE) (BLOCK PHYSICAL-PATHNAME-DIRECTORY (STRUCTURE-ELT S 3))) NIL T T
:pinfo INSPECT-CONS (X) NIL NIL NIL NIL NIL NIL T
:pinfo INTERACTIVE-STREAM-WRITE-SIMPLE-STRING-METHOD (S) NIL (INTERACTIVE-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK INTERACTIVE-STREAM-WRITE-SIMPLE-STRING-METHOD (STRUCTURE-ELT S 10))) NIL T T
:pinfo USER-STREAM-INPUT-SOURCE (S) NIL (USER-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK USER-STREAM-INPUT-SOURCE (STRUCTURE-ELT S 3))) NIL T T
:pinfo SET-FILE-STREAM-INPUT-SOURCE!@$ (S VALUE) NIL (FILE-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FILE-STREAM-INPUT-SOURCE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo CONCATENATED-STREAM-PEEK-CHAR-METHOD (S) NIL (CONCATENATED-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK CONCATENATED-STREAM-PEEK-CHAR-METHOD (STRUCTURE-ELT S 12))) NIL T T
:pinfo ECHO-STRING-WRITE-BYTE-METHOD (S) NIL (ECHO-STRING) NIL (LAMBDA (S) (DECLARE) (BLOCK ECHO-STRING-WRITE-BYTE-METHOD (STRUCTURE-ELT S 7))) NIL T T
:pinfo TERMINAL-STREAM-INPUT-SOURCE (S) NIL (TERMINAL-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK TERMINAL-STREAM-INPUT-SOURCE (STRUCTURE-ELT S 3))) NIL T T
:pinfo INTERNAL-SIMPLE-ERROR--DUMMY-SLOT- (S) NIL (SIMPLE-ERROR) NIL (LAMBDA (S) (DECLARE) (BLOCK INTERNAL-SIMPLE-ERROR--DUMMY-SLOT- (STRUCTURE-ELT S 1))) NIL T T
:pinfo SET-SYNONYM-STREAM-FORCE-OUTPUT-METHOD!@$ (S VALUE) NIL (SYNONYM-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SYNONYM-STREAM-FORCE-OUTPUT-METHOD!@$ (SET-STRUCTURE-ELT S 11 VALUE))) NIL T T
:pinfo TERMINAL-STREAM-WRITE-CHAR-METHOD (S) NIL (TERMINAL-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK TERMINAL-STREAM-WRITE-CHAR-METHOD (STRUCTURE-ELT S 5))) NIL T T
:pinfo FLUID-STACK-OVERFLOW-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:finfo LESSP "lessp" (X Y) (FLAG) (T T) (T)
:pinfo ARRAY-MULTIPLIER-VECTOR (A) NIL NIL NIL (LAMBDA (A) (DECLARE) (BLOCK ARRAY-MULTIPLIER-VECTOR (%32BIT-REF A ARRAY-MULT-VECTOR-OFFSET A))) NIL T T
:pinfo MAKE-IOBUF (&KEY COUNT POINTER BASE BUFFER-SIZE FLAG FILE) NIL NIL NIL NIL NIL NIL T
:pinfo FLOATING-POINT-OVERFLOW--DUMMY-SLOT- (S) NIL (FLOATING-POINT-OVERFLOW) NIL (LAMBDA (S) (DECLARE) (BLOCK FLOATING-POINT-OVERFLOW--DUMMY-SLOT- (STRUCTURE-ELT S 1))) NIL T T
:pinfo FLOOR/FLOAT (X Y) NIL NIL NIL (LAMBDA (X Y) (DECLARE) (BLOCK FLOOR/FLOAT (VALUES (DOUBLE_TRUNCATE (DOUBLE_FLOOR (/ X Y)) 1.0) (FMOD X Y)))) NIL T T
:pinfo CONTROL-ERROR--DUMMY-SLOT- (S) NIL (CONTROL-ERROR) NIL (LAMBDA (S) (DECLARE) (BLOCK CONTROL-ERROR--DUMMY-SLOT- (STRUCTURE-ELT S 1))) NIL T T
:finfo INITIALIZE_ARRAY "initialize_array" (A ELEMENT_TYPE_TAG ELEMENT_SIZE ELEMENT) (VALUE) (T INT INT T) (T)
:pinfo EXPAND-INNER-TYPES (TYPE) NIL NIL NIL NIL NIL NIL T
:pinfo OBJECT-SIZE (X) NIL NIL NIL (LAMBDA (X) (DECLARE) (BLOCK OBJECT-SIZE (OBJECT_SIZE X))) NIL T T
:pinfo CASE-FAILURE-POSSIBILITIES (S) NIL (CASE-FAILURE) NIL (LAMBDA (S) (DECLARE) (BLOCK CASE-FAILURE-POSSIBILITIES (STRUCTURE-ELT S 5))) NIL T T
:pinfo MACHINE-INSTANCE NIL NIL NIL NIL NIL NIL NIL T
:pinfo FORMAT-EXP-AUX (NUMBER W D E K OVF PAD MARKER ATSIGN) NIL NIL NIL NIL NIL NIL T
:pinfo SET-STRUCT-SLOT-INITIAL-VALUE!@$ (S VALUE) NIL (STRUCT-SLOT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STRUCT-SLOT-INITIAL-VALUE!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SET-STRUCT-INFO-LENGTH!@$ (S VALUE) NIL (STRUCT-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STRUCT-INFO-LENGTH!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo SET-USER-DEFINED-STREAM-READ-CHAR-METHOD!@$ (S VALUE) NIL (USER-DEFINED-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-USER-DEFINED-STREAM-READ-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo LISP-IMPLEMENTATION-VERSION NIL NIL NIL NIL NIL NIL NIL T
:pinfo SET-STREAM-WRITE-BYTE-METHOD!@$ (S VALUE) NIL (STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STREAM-WRITE-BYTE-METHOD!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo SET-FPTR-STREAM-LISTEN-METHOD!@$ (S VALUE) NIL (FPTR-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FPTR-STREAM-LISTEN-METHOD!@$ (SET-STRUCTURE-ELT S 14 VALUE))) NIL T T
:pinfo SET-FPTR-STREAM-OUTPUT-SINK!@$ (S VALUE) NIL (FPTR-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FPTR-STREAM-OUTPUT-SINK!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo SET-STREAM-FORCE-OUTPUT-METHOD!@$ (S VALUE) NIL (STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STREAM-FORCE-OUTPUT-METHOD!@$ (SET-STRUCTURE-ELT S 11 VALUE))) NIL T T
:pinfo DIVISION-BY-ZERO--DUMMY-SLOT- (S) NIL (DIVISION-BY-ZERO) NIL (LAMBDA (S) (DECLARE) (BLOCK DIVISION-BY-ZERO--DUMMY-SLOT- (STRUCTURE-ELT S 1))) NIL T T
:pinfo INTERACTIVE-STREAM-WRITE-FLOAT-METHOD (S) NIL (INTERACTIVE-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK INTERACTIVE-STREAM-WRITE-FLOAT-METHOD (STRUCTURE-ELT S 9))) NIL T T
:pinfo SET-TWO-WAY-STREAM-WRITE-FLOAT-METHOD!@$ (S VALUE) NIL (TWO-WAY-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TWO-WAY-STREAM-WRITE-FLOAT-METHOD!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo SET-DIVISION-BY-ZERO-OPERATION!@$ (S VALUE) NIL (DIVISION-BY-ZERO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DIVISION-BY-ZERO-OPERATION!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo STRUCTURE-CHILDREN (NAME) NIL NIL NIL NIL NIL NIL T
:pinfo READTABLE-ATTRIBUTES (S) NIL (READTABLE) NIL (LAMBDA (S) (DECLARE) (BLOCK READTABLE-ATTRIBUTES (STRUCTURE-ELT S 2))) NIL T T
:pinfo MAKE-DEFAULT-READTABLE NIL NIL NIL NIL NIL NIL NIL T
:pinfo EQUAL (X Y) NIL NIL NIL NIL NIL NIL T
:pinfo MAKUNBOUND (S) NIL (SYMBOL) NIL (LAMBDA (S) (DECLARE) (BLOCK MAKUNBOUND (%MAKUNBOUND S) S)) NIL T T
:pinfo CDDAR (C) NIL NIL NIL (LAMBDA (C) (DECLARE) (BLOCK CDDAR (CDR (CDR (CAR C))))) NIL T T
:pinfo SET-TWO-WAY-STREAM-ELEMENT-TYPE!@$ (S VALUE) NIL (TWO-WAY-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TWO-WAY-STREAM-ELEMENT-TYPE!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-HASH-TABLE-BUCKETS!@$ (S VALUE) NIL (HASH-TABLE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-HASH-TABLE-BUCKETS!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-STRUCT-INFO-REPORT-FUNCTION!@$ (S VALUE) NIL (STRUCT-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STRUCT-INFO-REPORT-FUNCTION!@$ (SET-STRUCTURE-ELT S 18 VALUE))) NIL T T
:pinfo EXPAND-EVAL-WHEN (FORM) NIL NIL NIL NIL NIL NIL T
:pinfo NSUBST (NEW OLD TREE &KEY (KEY (FUNCTION IDENTITY)) (TEST (FUNCTION EQL) TESTP) (TEST-NOT NIL NOTP)) NIL NIL NIL NIL NIL NIL T
:pinfo SET-USER-STREAM-WRITE-FLOAT-METHOD!@$ (S VALUE) NIL (USER-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-USER-STREAM-WRITE-FLOAT-METHOD!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo BIGNUM-DIV (X Y) NIL NIL NIL NIL NIL NIL T
:pinfo USER-STREAM-PEEK-CHAR-METHOD (S) NIL (USER-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK USER-STREAM-PEEK-CHAR-METHOD (STRUCTURE-ELT S 12))) NIL T T
:pinfo SET-ARITHMETIC-ERROR-OPERATION!@$ (S VALUE) NIL (ARITHMETIC-ERROR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-ARITHMETIC-ERROR-OPERATION!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SET-STRING-STREAM-ELEMENT-TYPE!@$ (S VALUE) NIL (STRING-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STRING-STREAM-ELEMENT-TYPE!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo DIRENT-RECLEN (S) NIL NIL NIL (LAMBDA (S) (DECLARE) (BLOCK DIRENT-RECLEN (C-STRUCT-REF S DIRENT RECLEN))) NIL T T
:pinfo STRUCT-INFO-PRINT-FUNCTION-LAMBDA-EXPR (S) NIL (STRUCT-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK STRUCT-INFO-PRINT-FUNCTION-LAMBDA-EXPR (STRUCTURE-ELT S 16))) NIL T T
:pinfo FLOAT (N &OPTIONAL OTHER) NIL NIL NIL (LAMBDA (N &OPTIONAL OTHER) (DECLARE) (BLOCK FLOAT (FLOAT-1 N))) NIL T T
:pinfo BYTE-SIZE (S) NIL (BYTE) NIL (LAMBDA (S) (DECLARE) (BLOCK BYTE-SIZE (STRUCTURE-ELT S 1))) NIL T T
:pinfo INTERACTIVE-STREAM-PEEK-CHAR-METHOD (S) NIL (INTERACTIVE-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK INTERACTIVE-STREAM-PEEK-CHAR-METHOD (STRUCTURE-ELT S 12))) NIL T T
:pinfo SET-FPTR-STREAM-READ-CHAR-METHOD!@$ (S VALUE) NIL (FPTR-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FPTR-STREAM-READ-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo ACOS (X) NIL NIL NIL (LAMBDA (X) (DECLARE) (BLOCK ACOS (DOUBLE_ACOS (FLOAT X)))) NIL T T
:pinfo FLUID-RANDOM-STATE-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo LINE-NUMBER-STREAM-WRITE-CHAR-METHOD (S) NIL (LINE-NUMBER-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK LINE-NUMBER-STREAM-WRITE-CHAR-METHOD (STRUCTURE-ELT S 5))) NIL T T
:pinfo BROADCAST-STREAM-ELEMENT-SIZE (S) NIL (BROADCAST-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK BROADCAST-STREAM-ELEMENT-SIZE (STRUCTURE-ELT S 2))) NIL T T
:pinfo LISTEN/STRING-STREAM (STREAM) NIL NIL NIL NIL NIL NIL T
:pinfo COPY-SYNONYM-STREAM (S) NIL NIL NIL NIL NIL NIL T
:pinfo FLUID-STRUCT-SLOT-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-MACRO-ENV-SYMBOL-MACROS!@$ (S VALUE) NIL (MACRO-ENV T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-MACRO-ENV-SYMBOL-MACROS!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo CONCATENATED-STREAM-ELEMENT-TYPE (S) NIL (CONCATENATED-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK CONCATENATED-STREAM-ELEMENT-TYPE (STRUCTURE-ELT S 1))) NIL T T
:pinfo SET-USER-STREAM-WRITE-CHAR-METHOD!@$ (S VALUE) NIL (USER-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-USER-STREAM-WRITE-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo SET-LAMBDA-LIST-REQUIREDS!@$ (S VALUE) NIL (LAMBDA-LIST T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-LAMBDA-LIST-REQUIREDS!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SBIT (A &RESTV DIMS) NIL NIL NIL NIL NIL NIL T
:pinfo SET-TERMINAL-STREAM-READ-CHAR-METHOD!@$ (S VALUE) NIL (TERMINAL-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TERMINAL-STREAM-READ-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo HAIRY-DBIND (HAIRY FORM BODY) NIL NIL NIL NIL NIL NIL T
:pinfo FPTR-STREAM-FORCE-OUTPUT-METHOD (S) NIL (FPTR-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK FPTR-STREAM-FORCE-OUTPUT-METHOD (STRUCTURE-ELT S 11))) NIL T T
:pinfo SET-DISPATCH-MACRO-CHAR-SUB-FUNCTIONS!@$ (S VALUE) NIL (DISPATCH-MACRO-CHAR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DISPATCH-MACRO-CHAR-SUB-FUNCTIONS!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SET-CONCATENATED-STREAM-READ-BYTE-METHOD!@$ (S VALUE) NIL (CONCATENATED-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONCATENATED-STREAM-READ-BYTE-METHOD!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo NIL->EMPTY-STRING (X) NIL NIL NIL NIL NIL NIL T
:pinfo SET-FLOATING-POINT-UNDERFLOW-OPERANDS!@$ (S VALUE) NIL (FLOATING-POINT-UNDERFLOW T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FLOATING-POINT-UNDERFLOW-OPERANDS!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SET-HASH-TABLE-REHASH-THRESHOLD!@$ (S VALUE) NIL (HASH-TABLE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-HASH-TABLE-REHASH-THRESHOLD!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo END-OF-FILE--DUMMY-SLOT- (S) NIL (END-OF-FILE) NIL (LAMBDA (S) (DECLARE) (BLOCK END-OF-FILE--DUMMY-SLOT- (STRUCTURE-ELT S 1))) NIL T T
:pinfo CERROR (CONTINUE-STRING DATUM &REST ARGUMENTS) NIL NIL NIL NIL NIL NIL T
:pinfo SET-USER-STREAM-READ-CHAR-METHOD!@$ (S VALUE) NIL (USER-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-USER-STREAM-READ-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo ARRAY-UNDERLYING-VECTOR (A) NIL NIL NIL (LAMBDA (A) (DECLARE) (BLOCK ARRAY-UNDERLYING-VECTOR (%32BIT-REF A INDIRECT-ARRAY-OFFSET))) NIL T T
:pinfo BROADCAST-STREAM-OUTPUT-SINK (S) NIL (BROADCAST-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK BROADCAST-STREAM-OUTPUT-SINK (STRUCTURE-ELT S 4))) NIL T T
:pinfo DEFINE-VARIABLE (NAME VALUE DOC-STRING TYPE) NIL NIL NIL NIL NIL NIL T
:pinfo BROADCAST-STREAM-WRITE-SIMPLE-STRING-METHOD (S) NIL (BROADCAST-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK BROADCAST-STREAM-WRITE-SIMPLE-STRING-METHOD (STRUCTURE-ELT S 10))) NIL T T
:pinfo EXPAND-LAMBDA-EXPR (FORM) NIL NIL NIL NIL NIL NIL T
:pinfo SET-STRUCT-INFO-CHILDREN!@$ (S VALUE) NIL (STRUCT-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STRUCT-INFO-CHILDREN!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo CONSTRUCTOR-FOR-SIMPLE-TYPE-ERROR/5 (-DUMMY-SLOT- DATUM EXPECTED-TYPE FORMAT-STRING FORMAT-ARGUMENTS) NIL NIL NIL NIL NIL NIL T
:pinfo SPECIAL-VAR? (S) NIL NIL NIL NIL NIL NIL T
:pinfo FLUID-PACKAGE-ERROR-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo PATHNAME->STRING (P) NIL NIL NIL NIL NIL NIL T
:pinfo SIMPLE-UNSIGNED-16BIT-VECTOR-P (X) NIL NIL NIL (LAMBDA (X) (DECLARE) (BLOCK SIMPLE-UNSIGNED-16BIT-VECTOR-P (%TAG= X TYPE-SIMPLE-UNSIGNED-16BIT-VECTOR))) NIL T T
:pinfo COPY-FPTR-STREAM (S) NIL NIL NIL NIL NIL NIL T
:pinfo CONCATENATED-STREAM-INPUT-SOURCE (S) NIL (CONCATENATED-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK CONCATENATED-STREAM-INPUT-SOURCE (STRUCTURE-ELT S 3))) NIL T T
:pinfo HASH_INIT75 NIL NIL NIL NIL NIL NIL NIL T
:pinfo OPEN (PATHNAME &KEY (DIRECTION :INPUT) (ELEMENT-TYPE (QUOTE CHARACTER))) NIL NIL NIL NIL NIL NIL T
:pinfo SHORT-SITE-NAME NIL NIL NIL NIL NIL NIL NIL T
:pinfo CONSTRUCTOR-FOR-CONDITION/1 (-DUMMY-SLOT-) NIL NIL NIL NIL NIL NIL T
:pinfo DISPATCH-MACRO-CHAR-FUNCTION (S) NIL (DISPATCH-MACRO-CHAR) NIL (LAMBDA (S) (DECLARE) (BLOCK DISPATCH-MACRO-CHAR-FUNCTION (STRUCTURE-ELT S 1))) NIL T T
:pinfo LOOP-DO-COLLECT (TYPE) NIL NIL NIL NIL NIL NIL T
:pinfo MAKE-SYMBOL (NAME) NIL NIL NIL (LAMBDA (NAME) (DECLARE) (BLOCK MAKE-SYMBOL (MAKE_SYMBOL NAME (SXHASH/SIMPLE-STRING NAME)))) NIL T T
:pinfo LINE-NUMBER-STREAM-PEEK-CHAR-METHOD (S) NIL (LINE-NUMBER-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK LINE-NUMBER-STREAM-PEEK-CHAR-METHOD (STRUCTURE-ELT S 12))) NIL T T
:pinfo FORCE-OUTPUT/FPTR-STREAM (STREAM) NIL NIL NIL NIL NIL NIL T
:pinfo >= (&RESTV ARGS) NIL NIL NIL NIL NIL NIL T
:pinfo LOOP-CONSTANTP (FORM) NIL NIL NIL NIL NIL NIL T
:pinfo MAKE-RESTART/4 (NAME FUNCTION REPORT-FUNCTION INTERACTIVE-FUNCTION) NIL NIL NIL NIL NIL NIL T
:pinfo SET-CONCATENATED-STREAM-WRITE-BYTE-METHOD!@$ (S VALUE) NIL (CONCATENATED-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONCATENATED-STREAM-WRITE-BYTE-METHOD!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo USER-STREAM-FORCE-OUTPUT-METHOD (S) NIL (USER-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK USER-STREAM-FORCE-OUTPUT-METHOD (STRUCTURE-ELT S 11))) NIL T T
:pinfo FILE-STREAM-WRITE-FLOAT-METHOD (S) NIL (FILE-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK FILE-STREAM-WRITE-FLOAT-METHOD (STRUCTURE-ELT S 9))) NIL T T
:pinfo CEILING/FIXNUM (X Y) NIL NIL NIL (LAMBDA (X Y) (DECLARE) (BLOCK CEILING/FIXNUM (LET ((Q (%DIV X Y)) (R (%REM X Y))) (VALUES (IF (= 0 R) Q (1+ Q)) (- R Y))))) NIL T T
:pinfo SET-STORAGE-CONDITION--DUMMY-SLOT-!@$ (S VALUE) NIL (STORAGE-CONDITION T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STORAGE-CONDITION--DUMMY-SLOT-!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo EXPAND-SYMBOL-MACROLET (FORM) NIL NIL NIL NIL NIL NIL T
:pinfo EVENP (INTEGER) NIL NIL NIL NIL NIL NIL T
:pinfo MAKE-32BIT-VECTOR (LEN) NIL (FIXNUM) NIL NIL NIL NIL T
:pinfo SET-SYNONYM-STREAM-WRITE-FLOAT-METHOD!@$ (S VALUE) NIL (SYNONYM-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SYNONYM-STREAM-WRITE-FLOAT-METHOD!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo SET-TWO-WAY-STREAM-WRITE-SIMPLE-STRING-METHOD!@$ (S VALUE) NIL (TWO-WAY-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TWO-WAY-STREAM-WRITE-SIMPLE-STRING-METHOD!@$ (SET-STRUCTURE-ELT S 10 VALUE))) NIL T T
:pinfo SET-CONCATENATED-STREAM-WRITE-SIMPLE-STRING-METHOD!@$ (S VALUE) NIL (CONCATENATED-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONCATENATED-STREAM-WRITE-SIMPLE-STRING-METHOD!@$ (SET-STRUCTURE-ELT S 10 VALUE))) NIL T T
:pinfo FLOATING-POINT-UNDERFLOW-OPERATION (S) NIL (FLOATING-POINT-UNDERFLOW) NIL (LAMBDA (S) (DECLARE) (BLOCK FLOATING-POINT-UNDERFLOW-OPERATION (STRUCTURE-ELT S 2))) NIL T T
:pinfo COMPLEMENT (FUNCTION) NIL NIL NIL NIL NIL NIL T
:pinfo TYPE-ERROR-EXPECTED-TYPE (S) NIL (TYPE-ERROR) NIL (LAMBDA (S) (DECLARE) (BLOCK TYPE-ERROR-EXPECTED-TYPE (STRUCTURE-ELT S 3))) NIL T T
:pinfo MACRO-ENV-MACROS (S) NIL (MACRO-ENV) NIL (LAMBDA (S) (DECLARE) (BLOCK MACRO-ENV-MACROS (STRUCTURE-ELT S 1))) NIL T T
:pinfo FILE-STREAM-WRITE-SIMPLE-STRING-METHOD (S) NIL (FILE-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK FILE-STREAM-WRITE-SIMPLE-STRING-METHOD (STRUCTURE-ELT S 10))) NIL T T
:pinfo CONSTRUCTOR-FOR-CASE-FAILURE/5 (-DUMMY-SLOT- DATUM EXPECTED-TYPE NAME POSSIBILITIES) NIL NIL NIL NIL NIL NIL T
:pinfo SET-STRUCT-SLOT-NAME!@$ (S VALUE) NIL (STRUCT-SLOT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STRUCT-SLOT-NAME!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo COMPLEX-VECTOR-P (X) NIL NIL NIL NIL NIL NIL T
:pinfo VECTOR-POP (VECTOR) NIL (VECTOR-WITH-FILL-POINTER) NIL NIL NIL NIL T
:pinfo SET-PACKAGE-USED-BY-PACKAGES!@$ (S VALUE) NIL (PACKAGE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PACKAGE-USED-BY-PACKAGES!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo FLUID-FLOATING-POINT-OVERFLOW-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-RANDOM-STATE-SEED!@$ (S VALUE) NIL (RANDOM-STATE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-RANDOM-STATE-SEED!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo RATIONAL/FLOAT (F) NIL NIL NIL NIL NIL NIL T
:pinfo SET-BROADCAST-STREAM-WRITE-CHAR-METHOD!@$ (S VALUE) NIL (BROADCAST-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-BROADCAST-STREAM-WRITE-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo USER-DEFINED-STREAM-READ-CHAR-METHOD (S) NIL (USER-DEFINED-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK USER-DEFINED-STREAM-READ-CHAR-METHOD (STRUCTURE-ELT S 6))) NIL T T
:pinfo BROADCAST-STREAM-FORCE-OUTPUT-METHOD (S) NIL (BROADCAST-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK BROADCAST-STREAM-FORCE-OUTPUT-METHOD (STRUCTURE-ELT S 11))) NIL T T
:pinfo SET-TWO-WAY-STREAM-OUTPUT-SINK!@$ (S VALUE) NIL (TWO-WAY-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TWO-WAY-STREAM-OUTPUT-SINK!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo CADAAR (C) NIL NIL NIL (LAMBDA (C) (DECLARE) (BLOCK CADAAR (CAR (CDR (CAR (CAR C)))))) NIL T T
:pinfo SET-UNBOUND-VARIABLE-NAME!@$ (S VALUE) NIL (UNBOUND-VARIABLE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-UNBOUND-VARIABLE-NAME!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo PRIME-CEILING (X) NIL NIL NIL NIL NIL NIL T
:pinfo INITIALIZE-ARRAY-FROM-CONTENTS (A UNDERLYING-VECTOR CONTENTS) NIL NIL NIL NIL NIL NIL T
:pinfo FPTR-STREAM-WRITE-BYTE-METHOD (S) NIL (FPTR-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK FPTR-STREAM-WRITE-BYTE-METHOD (STRUCTURE-ELT S 7))) NIL T T
:pinfo SET-LINE-NUMBER-STREAM-ELEMENT-TYPE!@$ (S VALUE) NIL (LINE-NUMBER-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-LINE-NUMBER-STREAM-ELEMENT-TYPE!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo STRUCT-TYPE-CHECK (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-INTERNAL-SIMPLE-TYPE-ERROR-FORMAT-ARGUMENTS!@$ (S VALUE) NIL (SIMPLE-TYPE-ERROR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INTERNAL-SIMPLE-TYPE-ERROR-FORMAT-ARGUMENTS!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo SET-FLOATING-POINT-OVERFLOW-OPERANDS!@$ (S VALUE) NIL (FLOATING-POINT-OVERFLOW T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FLOATING-POINT-OVERFLOW-OPERANDS!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo STRUCT-NEW-STRUCTURE-FUNCTION (S) NIL NIL NIL NIL NIL NIL T
:pinfo EXP (N) NIL NIL NIL (LAMBDA (N) (DECLARE) (BLOCK EXP (DOUBLE_EXP (FLOAT N)))) NIL T T
:pinfo RANDOM-W-NAME NIL NIL NIL NIL NIL NIL NIL T
:pinfo LOOP_INIT578 NIL NIL NIL NIL NIL NIL NIL T
:pinfo SET-INTERACTIVE-STREAM-WRITE-BYTE-METHOD!@$ (S VALUE) NIL (INTERACTIVE-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INTERACTIVE-STREAM-WRITE-BYTE-METHOD!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo STRUCT-INFO-CONC-NAME (S) NIL (STRUCT-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK STRUCT-INFO-CONC-NAME (STRUCTURE-ELT S 5))) NIL T T
:pinfo CONCATENATED-STREAM-READ-BYTE-METHOD (S) NIL (CONCATENATED-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK CONCATENATED-STREAM-READ-BYTE-METHOD (STRUCTURE-ELT S 8))) NIL T T
:pinfo SHOW-RESTARTS NIL NIL NIL NIL NIL NIL NIL T
:pinfo FIND-SYMBOL (NAME &OPTIONAL (P *PACKAGE*)) NIL NIL NIL (LAMBDA (NAME &OPTIONAL (P *PACKAGE*)) (DECLARE) (BLOCK FIND-SYMBOL (FIND-SYMBOL/3 NAME (COERCE-TO-PACKAGE P) (SXHASH NAME)))) NIL T T
:pinfo SET-BROADCAST-STREAM-PEEK-CHAR-METHOD!@$ (S VALUE) NIL (BROADCAST-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-BROADCAST-STREAM-PEEK-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 12 VALUE))) NIL T T
:pinfo LOOP-MAKE-PSETQ (FROBS) NIL NIL NIL NIL NIL NIL T
:pinfo SET-MACRO-ORIGINAL-ARG-LIST!@$ (S VALUE) NIL (MACRO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-MACRO-ORIGINAL-ARG-LIST!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-HASH-TABLE-TEST!@$ (S VALUE) NIL (HASH-TABLE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-HASH-TABLE-TEST!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SERIOUS-CONDITION--DUMMY-SLOT- (S) NIL (SERIOUS-CONDITION) NIL (LAMBDA (S) (DECLARE) (BLOCK SERIOUS-CONDITION--DUMMY-SLOT- (STRUCTURE-ELT S 1))) NIL T T
:pinfo CONSTRUCTOR-FOR-WARNING/1 (-DUMMY-SLOT-) NIL NIL NIL NIL NIL NIL T
:pinfo TERMINAL-STREAM-WRITE-SIMPLE-STRING-METHOD (S) NIL (TERMINAL-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK TERMINAL-STREAM-WRITE-SIMPLE-STRING-METHOD (STRUCTURE-ELT S 10))) NIL T T
:pinfo SET-SCHAR (S I VALUE) NIL (T T T) NIL NIL NIL NIL T
:pinfo USER-DEFINED-STREAM-INPUT-SOURCE (S) NIL (USER-DEFINED-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK USER-DEFINED-STREAM-INPUT-SOURCE (STRUCTURE-ELT S 3))) NIL T T
:pinfo PRINT-STRUCTURE (S) NIL NIL NIL NIL NIL NIL T
:pinfo SORT-LIST (LIST PRED KEY) NIL NIL NIL NIL NIL NIL T
:pinfo GC-CALL-COUNT NIL NIL NIL NIL NIL NIL NIL T
:pinfo SET-TERMINAL-STREAM-LISTEN-METHOD!@$ (S VALUE) NIL (TERMINAL-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TERMINAL-STREAM-LISTEN-METHOD!@$ (SET-STRUCTURE-ELT S 14 VALUE))) NIL T T
:pinfo ATOM (X) NIL NIL NIL (LAMBDA (X) (DECLARE) (BLOCK ATOM (NOT (CONSP X)))) NIL T T
:pinfo SET-END-OF-FILE-STREAM!@$ (S VALUE) NIL (END-OF-FILE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-END-OF-FILE-STREAM!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo FILE-WRITE-DATE (FILENAME) NIL NIL NIL NIL NIL NIL T
:pinfo USER-DEFINED-STREAM-WRITE-SIMPLE-STRING-METHOD (S) NIL (USER-DEFINED-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK USER-DEFINED-STREAM-WRITE-SIMPLE-STRING-METHOD (STRUCTURE-ELT S 10))) NIL T T
:pinfo IOBUF-BUFFER-SIZE (S) NIL NIL NIL (LAMBDA (S) (DECLARE) (BLOCK IOBUF-BUFFER-SIZE (C-STRUCT-REF S IOBUF BUFFER-SIZE))) NIL T T
:pinfo SET-CONCATENATED-STREAM-ELEMENT-TYPE!@$ (S VALUE) NIL (CONCATENATED-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONCATENATED-STREAM-ELEMENT-TYPE!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo CONSTRUCTOR-FOR-SERIOUS-CONDITION (&KEY (-DUMMY-SLOT- NIL)) NIL NIL NIL (LAMBDA (&KEY (-DUMMY-SLOT- NIL)) (DECLARE) (BLOCK CONSTRUCTOR-FOR-SERIOUS-CONDITION (CONSTRUCTOR-FOR-SERIOUS-CONDITION/1 -DUMMY-SLOT-))) NIL T T
:pinfo SET-ECHO-STRING-READ-BYTE-METHOD!@$ (S VALUE) NIL (ECHO-STRING T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-ECHO-STRING-READ-BYTE-METHOD!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo FLUID-PACKAGEP!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-CELL-ERROR-NAME!@$ (S VALUE) NIL (CELL-ERROR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CELL-ERROR-NAME!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SET-USER-STREAM-INPUT-SOURCE!@$ (S VALUE) NIL (USER-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-USER-STREAM-INPUT-SOURCE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo FILE-STREAM-INPUT-SOURCE (S) NIL (FILE-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK FILE-STREAM-INPUT-SOURCE (STRUCTURE-ELT S 3))) NIL T T
:pinfo SET-FILE-STREAM-PATHNAME!@$ (S VALUE) NIL (FILE-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FILE-STREAM-PATHNAME!@$ (SET-STRUCTURE-ELT S 15 VALUE))) NIL T T
:pinfo COPY-USER-STREAM (S) NIL NIL NIL NIL NIL NIL T
:pinfo INTEGERP (X) NIL NIL NIL (LAMBDA (X) (DECLARE) (BLOCK INTEGERP (OR (FIXNUMP X) (BIGNUMP X)))) NIL T T
:pinfo BQ-FROB (X) NIL NIL NIL NIL NIL NIL T
:pinfo INTERNAL-SIMPLE-TYPE-ERROR-EXPECTED-TYPE (S) NIL (SIMPLE-TYPE-ERROR) NIL (LAMBDA (S) (DECLARE) (BLOCK INTERNAL-SIMPLE-TYPE-ERROR-EXPECTED-TYPE (STRUCTURE-ELT S 3))) NIL T T
:pinfo SET-BASIC-MACRO-ORIGINAL-ARG-LIST!@$ (S VALUE) NIL (BASIC-MACRO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-BASIC-MACRO-ORIGINAL-ARG-LIST!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-CASE-FAILURE-POSSIBILITIES!@$ (S VALUE) NIL (CASE-FAILURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CASE-FAILURE-POSSIBILITIES!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo COPY-STRUCTURE (OLD) NIL NIL NIL NIL NIL NIL T
:pinfo PARSE-FORMAT-OPERATION NIL NIL NIL NIL NIL NIL NIL T
:pinfo SYMBOL-PRINT-ESCAPE? (S) NIL NIL NIL (LAMBDA (S) (DECLARE) (BLOCK SYMBOL-PRINT-ESCAPE? (%= (SYMBOL-FLAG S PRINT-ESCAPE-FLAG) 1))) NIL T T
:pinfo PHYSICAL-PATHNAME-TYPE (S) NIL (PHYSICAL-PATHNAME) NIL (LAMBDA (S) (DECLARE) (BLOCK PHYSICAL-PATHNAME-TYPE (STRUCTURE-ELT S 5))) NIL T T
:pinfo SET-STREAM-ELEMENT-SIZE!@$ (S VALUE) NIL (STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STREAM-ELEMENT-SIZE!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SET-USER-STREAM-FORCE-OUTPUT-METHOD!@$ (S VALUE) NIL (USER-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-USER-STREAM-FORCE-OUTPUT-METHOD!@$ (SET-STRUCTURE-ELT S 11 VALUE))) NIL T T
:pinfo MAKE-PHYSICAL-PATHNAME (&KEY (HOST NIL) (DEVICE NIL) (DIRECTORY NIL) (NAME NIL) (TYPE NIL) (VERSION NIL) (NAMESTRING NIL)) NIL NIL NIL (LAMBDA (&KEY (HOST NIL) (DEVICE NIL) (DIRECTORY NIL) (NAME NIL) (TYPE NIL) (VERSION NIL) (NAMESTRING NIL)) (DECLARE) (BLOCK MAKE-PHYSICAL-PATHNAME (MAKE-PHYSICAL-PATHNAME/7 HOST DEVICE DIRECTORY NAME TYPE VERSION NAMESTRING))) NIL T T
:pinfo PATHNAME-VERSION (P) NIL NIL NIL NIL NIL NIL T
:pinfo CONSTRUCTOR-FOR-ERROR/1 (-DUMMY-SLOT-) NIL NIL NIL NIL NIL NIL T
:pinfo COMPUTE-RESTARTS NIL NIL NIL NIL NIL NIL NIL T
:pinfo FORCE-OUTPUT (&OPTIONAL (STREAM *STANDARD-OUTPUT*)) NIL NIL NIL (LAMBDA (&OPTIONAL (STREAM *STANDARD-OUTPUT*)) (DECLARE) (BLOCK FORCE-OUTPUT (FORCE-OUTPUT/1 STREAM))) NIL T T
:pinfo SET-TYPE-ERROR-EXPECTED-TYPE!@$ (S VALUE) NIL (TYPE-ERROR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TYPE-ERROR-EXPECTED-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SET-ECHO-STRING-WRITE-SIMPLE-STRING-METHOD!@$ (S VALUE) NIL (ECHO-STRING T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-ECHO-STRING-WRITE-SIMPLE-STRING-METHOD!@$ (SET-STRUCTURE-ELT S 10 VALUE))) NIL T T
:pinfo FLUID-TWO-WAY-STREAM-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo TOTAL-HEAP-PAGES NIL NIL NIL NIL NIL NIL NIL T
:pinfo SET-STACK-OVERFLOW--DUMMY-SLOT-!@$ (S VALUE) NIL (STACK-OVERFLOW T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STACK-OVERFLOW--DUMMY-SLOT-!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo COMPILED-FUNCTION-P (X) NIL NIL NIL NIL NIL NIL T
:pinfo DELETE-FILE (PATHNAME) NIL NIL NIL NIL NIL NIL T
:pinfo LIST-DELETE-DUPLICATES* (LIST TEST TEST-NOT KEY FROM-END START END) NIL NIL NIL NIL NIL NIL T
:pinfo COPY-BROADCAST-STREAM (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-PACKAGE-USES-PACKAGES!@$ (S VALUE) NIL (PACKAGE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PACKAGE-USES-PACKAGES!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SXHASH (X) NIL NIL NIL NIL NIL NIL T
:pinfo GET-UNIVERSAL-TIME NIL NIL NIL NIL NIL NIL NIL T
:pinfo SET-DIVISION-BY-ZERO--DUMMY-SLOT-!@$ (S VALUE) NIL (DIVISION-BY-ZERO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DIVISION-BY-ZERO--DUMMY-SLOT-!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-STRUCT-INFO-PRINT-FUNCTION!@$ (S VALUE) NIL (STRUCT-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STRUCT-INFO-PRINT-FUNCTION!@$ (SET-STRUCTURE-ELT S 10 VALUE))) NIL T T
:pinfo CONSTANT-EXPR (VARIABLE) NIL NIL NIL NIL NIL NIL T
:pinfo SET-FPTR-STREAM-WRITE-FLOAT-METHOD!@$ (S VALUE) NIL (FPTR-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FPTR-STREAM-WRITE-FLOAT-METHOD!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo PARSE-NAMESTRING (NAMESTRING &OPTIONAL HOST (DEFAULTS *DEFAULT-PATHNAME-DEFAULTS*) &KEY (START 0) END JUNK-ALLOWED) NIL NIL NIL NIL NIL NIL T
:pinfo SET-UNDEFINED-FUNCTION--DUMMY-SLOT-!@$ (S VALUE) NIL (UNDEFINED-FUNCTION T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-UNDEFINED-FUNCTION--DUMMY-SLOT-!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-STRING-STREAM-END!@$ (S VALUE) NIL (STRING-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STRING-STREAM-END!@$ (SET-STRUCTURE-ELT S 16 VALUE))) NIL T T
:pinfo SET-FPTR-STREAM-ELEMENT-TYPE!@$ (S VALUE) NIL (FPTR-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FPTR-STREAM-ELEMENT-TYPE!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo INSPECT-BANNER (X TYPE &OPTIONAL (BLURB "a")) NIL NIL NIL NIL NIL NIL T
:pinfo PC->PROCEDURE-NAME (PC) NIL NIL NIL NIL NIL NIL T
:pinfo SET-STRUCT-INFO-COPIER!@$ (S VALUE) NIL (STRUCT-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STRUCT-INFO-COPIER!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo STREAM-INPUT-SOURCE (S) NIL (STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK STREAM-INPUT-SOURCE (STRUCTURE-ELT S 3))) NIL T T
:pinfo INTEGER-DECODE-FLOAT (X) NIL (FLOAT) NIL NIL NIL NIL T
:pinfo NSTRING-DOWNCASE/4 (NEW OLD START END) NIL NIL NIL NIL NIL NIL T
:pinfo SET-LINE-NUMBER-STREAM-LINE!@$ (S VALUE) NIL (LINE-NUMBER-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-LINE-NUMBER-STREAM-LINE!@$ (SET-STRUCTURE-ELT S 16 VALUE))) NIL T T
:pinfo ABS (N) NIL NIL NIL NIL NIL NIL T
:pinfo LINE-NUMBER-STREAM-LINE (S) NIL (LINE-NUMBER-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK LINE-NUMBER-STREAM-LINE (STRUCTURE-ELT S 16))) NIL T T
:pinfo CASE-FAILURE-DATUM (S) NIL (CASE-FAILURE) NIL (LAMBDA (S) (DECLARE) (BLOCK CASE-FAILURE-DATUM (STRUCTURE-ELT S 2))) NIL T T
:pinfo RESTART-INTERACTIVE-FUNCTION (S) NIL (RESTART) NIL (LAMBDA (S) (DECLARE) (BLOCK RESTART-INTERACTIVE-FUNCTION (STRUCTURE-ELT S 4))) NIL T T
:pinfo STRING-STREAM-END (S) NIL (STRING-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK STRING-STREAM-END (STRUCTURE-ELT S 16))) NIL T T
:pinfo STRUCT-INFO-SLOTS (S) NIL (STRUCT-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK STRUCT-INFO-SLOTS (STRUCTURE-ELT S 3))) NIL T T
:pinfo STRUCT-SLOT-INITIAL-VALUE (S) NIL (STRUCT-SLOT) NIL (LAMBDA (S) (DECLARE) (BLOCK STRUCT-SLOT-INITIAL-VALUE (STRUCTURE-ELT S 2))) NIL T T
:pinfo SYMBOLP (S) NIL NIL NIL (LAMBDA (S) (DECLARE) (BLOCK SYMBOLP (%TAG= S TYPE-SYMBOL))) NIL T T
:pinfo PHYSICAL-PATHNAME-NAMESTRING (S) NIL (PHYSICAL-PATHNAME) NIL (LAMBDA (S) (DECLARE) (BLOCK PHYSICAL-PATHNAME-NAMESTRING (STRUCTURE-ELT S 7))) NIL T T
:pinfo STRING-STREAM-INTERNAL-BUFFER? (S) NIL (STRING-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK STRING-STREAM-INTERNAL-BUFFER? (STRUCTURE-ELT S 17))) NIL T T
:pinfo SET-TERMINAL-STREAM-ELEMENT-TYPE!@$ (S VALUE) NIL (TERMINAL-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TERMINAL-STREAM-ELEMENT-TYPE!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SCALE-EXPONENT (X) NIL NIL NIL NIL NIL NIL T
:pinfo FLUID-READTABLEP!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo TWO-WAY-STREAM-READ-CHAR-METHOD (S) NIL (TWO-WAY-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK TWO-WAY-STREAM-READ-CHAR-METHOD (STRUCTURE-ELT S 6))) NIL T T
:pinfo FLUID-PATHNAMEP!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo LOWER-CASE-P (CHAR) NIL NIL NIL NIL NIL NIL T
:pinfo BQ-PROCESS (X) NIL NIL NIL NIL NIL NIL T
:pinfo SET-UNBOUND-VARIABLE--DUMMY-SLOT-!@$ (S VALUE) NIL (UNBOUND-VARIABLE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-UNBOUND-VARIABLE--DUMMY-SLOT-!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-FILE-STREAM-READ-CHAR-METHOD!@$ (S VALUE) NIL (FILE-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FILE-STREAM-READ-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo WRITE-CHAR-UNSAFE (CHAR STREAM) NIL NIL NIL (LAMBDA (CHAR STREAM) (DECLARE) (BLOCK WRITE-CHAR-UNSAFE (FUNCALL (THE COMPILED-FUNCTION (STREAM-WRITE-CHAR-METHOD STREAM)) STREAM CHAR))) NIL T T
:pinfo SET-BROADCAST-STREAM-READ-BYTE-METHOD!@$ (S VALUE) NIL (BROADCAST-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-BROADCAST-STREAM-READ-BYTE-METHOD!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo USER-DEFINED-STREAM-OUTPUT-SINK (S) NIL (USER-DEFINED-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK USER-DEFINED-STREAM-OUTPUT-SINK (STRUCTURE-ELT S 4))) NIL T T
:pinfo SET-SYNONYM-STREAM-ELEMENT-TYPE!@$ (S VALUE) NIL (SYNONYM-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SYNONYM-STREAM-ELEMENT-TYPE!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo CONSTANTP (X) NIL NIL NIL NIL NIL NIL T
:pinfo PARSE-INTEGER-1 (STRING START END RADIX JUNK-ALLOWED) NIL NIL NIL NIL NIL NIL T
:pinfo SET-AREF (VALUE A &RESTV DIMS) NIL NIL NIL NIL NIL NIL T
:pinfo FLUID-SIMPLE-ERROR-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-CELL-ERROR--DUMMY-SLOT-!@$ (S VALUE) NIL (CELL-ERROR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CELL-ERROR--DUMMY-SLOT-!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-INTERACTIVE-STREAM-PEEK-CHAR-METHOD!@$ (S VALUE) NIL (INTERACTIVE-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INTERACTIVE-STREAM-PEEK-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 12 VALUE))) NIL T T
:pinfo LAMBDA-LIST-REST (S) NIL (LAMBDA-LIST) NIL (LAMBDA (S) (DECLARE) (BLOCK LAMBDA-LIST-REST (STRUCTURE-ELT S 3))) NIL T T
:pinfo SYNONYM-STREAM-ELEMENT-SIZE (S) NIL (SYNONYM-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK SYNONYM-STREAM-ELEMENT-SIZE (STRUCTURE-ELT S 2))) NIL T T
:pinfo 32BIT-VREF (V I) NIL (32BIT-VECTOR FIXNUM) NIL NIL NIL NIL T
:pinfo SET-USER-DEFINED-STREAM-ELEMENT-TYPE!@$ (S VALUE) NIL (USER-DEFINED-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-USER-DEFINED-STREAM-ELEMENT-TYPE!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo CONSP (X) NIL NIL NIL (LAMBDA (X) (DECLARE) (BLOCK CONSP (%TAG= X TYPE-CONS))) NIL T T
:pinfo VECTOR-DELETE-DUPLICATES* (VECTOR TEST TEST-NOT KEY FROM-END START END &OPTIONAL (LENGTH (LENGTH VECTOR))) NIL NIL NIL NIL NIL NIL T
:pinfo SET-LINE-NUMBER-STREAM-FORCE-OUTPUT-METHOD!@$ (S VALUE) NIL (LINE-NUMBER-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-LINE-NUMBER-STREAM-FORCE-OUTPUT-METHOD!@$ (SET-STRUCTURE-ELT S 11 VALUE))) NIL T T
:pinfo STRUCTURE-SLOT-NAMES (S) NIL NIL NIL NIL NIL NIL T
:pinfo CDADR (C) NIL NIL NIL (LAMBDA (C) (DECLARE) (BLOCK CDADR (CDR (CAR (CDR C))))) NIL T T
:pinfo SET-BYTE-POSITION!@$ (S VALUE) NIL (BYTE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-BYTE-POSITION!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo FOURTH (LIST) NIL NIL NIL (LAMBDA (LIST) (DECLARE) (BLOCK FOURTH (CADDDR LIST))) NIL T T
:pinfo STRUCT-SLOT-READ-ONLY? (S) NIL (STRUCT-SLOT) NIL (LAMBDA (S) (DECLARE) (BLOCK STRUCT-SLOT-READ-ONLY? (STRUCTURE-ELT S 4))) NIL T T
:pinfo SET-TERMINAL-STREAM-WRITE-FLOAT-METHOD!@$ (S VALUE) NIL (TERMINAL-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TERMINAL-STREAM-WRITE-FLOAT-METHOD!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo SET-PACKAGE-NAME!@$ (S VALUE) NIL (PACKAGE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PACKAGE-NAME!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-ECHO-STRING-WRITE-FLOAT-METHOD!@$ (S VALUE) NIL (ECHO-STRING T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-ECHO-STRING-WRITE-FLOAT-METHOD!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo MAKE-STRUCT-SLOT/4 (NAME INITIAL-VALUE TYPE READ-ONLY?) NIL NIL NIL NIL NIL NIL T
:pinfo CADDAR (C) NIL NIL NIL (LAMBDA (C) (DECLARE) (BLOCK CADDAR (CAR (CDR (CDR (CAR C)))))) NIL T T
:pinfo CDADDR (C) NIL NIL NIL (LAMBDA (C) (DECLARE) (BLOCK CDADDR (CDR (CAR (CDR (CDR C)))))) NIL T T
:pinfo FILE-STREAM-FORCE-OUTPUT-METHOD (S) NIL (FILE-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK FILE-STREAM-FORCE-OUTPUT-METHOD (STRUCTURE-ELT S 11))) NIL T T
:pinfo ARRAY-DIMS-VECTOR (A) NIL NIL NIL (LAMBDA (A) (DECLARE) (BLOCK ARRAY-DIMS-VECTOR (%32BIT-REF A ARRAY-DIMS-VECTOR-OFFSET))) NIL T T
:pinfo NSUBSTITUTE (NEW OLD SEQUENCE &KEY FROM-END (TEST (FUNCTION EQL)) TEST-NOT END (COUNT MOST-POSITIVE-FIXNUM) KEY (START 0)) NIL NIL NIL NIL NIL NIL T
:pinfo SET-PHYSICAL-PATHNAME-VERSION!@$ (S VALUE) NIL (PHYSICAL-PATHNAME T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PHYSICAL-PATHNAME-VERSION!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo SET-READTABLE-SYNTAX!@$ (S VALUE) NIL (READTABLE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-READTABLE-SYNTAX!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo NUMERATOR (R) NIL (RATIO) NIL NIL NIL NIL T
:pinfo DEFSTRUCT_INIT643 NIL NIL NIL NIL NIL NIL NIL T
:pinfo SET-TWO-WAY-STREAM-ELEMENT-SIZE!@$ (S VALUE) NIL (TWO-WAY-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TWO-WAY-STREAM-ELEMENT-SIZE!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo PRINTER-NAME (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-TYPE-MACRO-EXPANSION-FUNCTION!@$ (S VALUE) NIL (TYPE-MACRO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TYPE-MACRO-EXPANSION-FUNCTION!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo FPTR-STREAM-WRITE-SIMPLE-STRING-METHOD (S) NIL (FPTR-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK FPTR-STREAM-WRITE-SIMPLE-STRING-METHOD (STRUCTURE-ELT S 10))) NIL T T
:pinfo ERROR-STREAM-EOF (STREAM) NIL NIL NIL NIL NIL NIL T
:pinfo COMMAND-LINE-ARGUMENT (N) NIL NIL NIL NIL NIL NIL T
:finfo CEIL "ceil" (X) (RESULT) (DOUBLE) (DOUBLE)
:pinfo ABORT-FAILURE--DUMMY-SLOT- (S) NIL (ABORT-FAILURE) NIL (LAMBDA (S) (DECLARE) (BLOCK ABORT-FAILURE--DUMMY-SLOT- (STRUCTURE-ELT S 1))) NIL T T
:pinfo REMOVE-COMPILER-MACRO-EXPANDER (NAME) NIL NIL NIL NIL NIL NIL T
:pinfo SET-STRING-STREAM-ELEMENT-SIZE!@$ (S VALUE) NIL (STRING-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STRING-STREAM-ELEMENT-SIZE!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo VECTOR-REF (V I) NIL NIL NIL NIL NIL NIL T
:pinfo NEW-STRUCTURE (LEN) NIL NIL NIL (LAMBDA (LEN) (DECLARE) (BLOCK NEW-STRUCTURE (ALLOC_WORDS LEN TYPE-STRUCTURE))) NIL T T
:pinfo MACRO-EXPANSION-FUNCTION (S) NIL (MACRO) NIL (LAMBDA (S) (DECLARE) (BLOCK MACRO-EXPANSION-FUNCTION (STRUCTURE-ELT S 2))) NIL T T
:pinfo SET-FILE-STREAM-LISTEN-METHOD!@$ (S VALUE) NIL (FILE-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FILE-STREAM-LISTEN-METHOD!@$ (SET-STRUCTURE-ELT S 14 VALUE))) NIL T T
:pinfo LOG/10 (N) NIL NIL NIL (LAMBDA (N) (DECLARE) (BLOCK LOG/10 (DOUBLE_LOG10 (FLOAT N)))) NIL T T
:pinfo TENTH (LIST) NIL NIL NIL (LAMBDA (LIST) (DECLARE) (BLOCK TENTH (NTH 9 LIST))) NIL T T
:pinfo SYNONYM-STREAM-OUTPUT-SINK (S) NIL (SYNONYM-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK SYNONYM-STREAM-OUTPUT-SINK (STRUCTURE-ELT S 4))) NIL T T
:pinfo INTERACTIVE-STREAM-FORCE-OUTPUT-METHOD (S) NIL (INTERACTIVE-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK INTERACTIVE-STREAM-FORCE-OUTPUT-METHOD (STRUCTURE-ELT S 11))) NIL T T
:pinfo REST (LIST) NIL NIL NIL (LAMBDA (LIST) (DECLARE) (BLOCK REST (CDR LIST))) NIL T T
:pinfo MACROS_INIT96 NIL NIL NIL NIL NIL NIL NIL T
:pinfo STRING-STREAM-WRITE-SIMPLE-STRING-METHOD (S) NIL (STRING-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK STRING-STREAM-WRITE-SIMPLE-STRING-METHOD (STRUCTURE-ELT S 10))) NIL T T
:pinfo LAMBDA-LIST-AUXES (S) NIL (LAMBDA-LIST) NIL (LAMBDA (S) (DECLARE) (BLOCK LAMBDA-LIST-AUXES (STRUCTURE-ELT S 6))) NIL T T
:pinfo SET-STRING-STREAM-WRITE-BYTE-METHOD!@$ (S VALUE) NIL (STRING-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STRING-STREAM-WRITE-BYTE-METHOD!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo GET-OUTPUT-STREAM-STRING (STREAM) NIL NIL NIL NIL NIL NIL T
:pinfo STREAM-ERROR-STREAM (S) NIL (STREAM-ERROR) NIL (LAMBDA (S) (DECLARE) (BLOCK STREAM-ERROR-STREAM (STRUCTURE-ELT S 2))) NIL T T
:pinfo DIRENT-NAMLEN (S) NIL NIL NIL (LAMBDA (S) (DECLARE) (BLOCK DIRENT-NAMLEN (C-STRUCT-REF S DIRENT NAMLEN))) NIL T T
:pinfo SET-STRUCT-INFO-CONSTRUCTOR!@$ (S VALUE) NIL (STRUCT-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STRUCT-INFO-CONSTRUCTOR!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo GENSYM (&OPTIONAL X) NIL NIL NIL (LAMBDA (&OPTIONAL X) (DECLARE) (BLOCK GENSYM (GENSYM/1 X))) NIL T T
:pinfo DISPATCH-MACRO-CHAR-SUB-FUNCTIONS (S) NIL (DISPATCH-MACRO-CHAR) NIL (LAMBDA (S) (DECLARE) (BLOCK DISPATCH-MACRO-CHAR-SUB-FUNCTIONS (STRUCTURE-ELT S 3))) NIL T T
:pinfo REPORTER-NAME (S) NIL NIL NIL NIL NIL NIL T
:pinfo DISPATCH-MACRO-CHAR-NON-TERMINATING? (S) NIL (DISPATCH-MACRO-CHAR) NIL (LAMBDA (S) (DECLARE) (BLOCK DISPATCH-MACRO-CHAR-NON-TERMINATING? (STRUCTURE-ELT S 2))) NIL T T
:pinfo VECTOR-BOUNDS-CHECK (V I) NIL NIL NIL (LAMBDA (V I) (DECLARE) (BLOCK VECTOR-BOUNDS-CHECK (UNLESS (AND (%FIXNUMP I) (%>= I 0) (%< I (%OBJECT-LENGTH V))) (VECTOR-BOUNDS-ERROR V I)))) NIL T T
:pinfo FLOATING-POINT-OVERFLOW-OPERANDS (S) NIL (FLOATING-POINT-OVERFLOW) NIL (LAMBDA (S) (DECLARE) (BLOCK FLOATING-POINT-OVERFLOW-OPERANDS (STRUCTURE-ELT S 3))) NIL T T
:pinfo FLUID-FILE-STREAM-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo FLUID-ERROR-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo RESTART-REPORT-FUNCTION (S) NIL (RESTART) NIL (LAMBDA (S) (DECLARE) (BLOCK RESTART-REPORT-FUNCTION (STRUCTURE-ELT S 3))) NIL T T
:pinfo SET-FLOATING-POINT-OVERFLOW--DUMMY-SLOT-!@$ (S VALUE) NIL (FLOATING-POINT-OVERFLOW T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FLOATING-POINT-OVERFLOW--DUMMY-SLOT-!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo FORMAT-GET-SEGMENTS NIL NIL NIL NIL NIL NIL NIL T
:pinfo REMOVE-IF/LIST (TEST LIST KEY NEGATE) NIL NIL NIL NIL NIL NIL T
:pinfo SET-FILE-STREAM-WRITE-FLOAT-METHOD!@$ (S VALUE) NIL (FILE-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FILE-STREAM-WRITE-FLOAT-METHOD!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo SXHASH-W (X) NIL NIL NIL (LAMBDA (X) (DECLARE) (BLOCK SXHASH-W (SXHASH X))) NIL T T
:pinfo SIMPLE-SIGNED-32BIT-VECTOR-P (X) NIL NIL NIL (LAMBDA (X) (DECLARE) (BLOCK SIMPLE-SIGNED-32BIT-VECTOR-P (%TAG= X TYPE-SIMPLE-SIGNED-32BIT-VECTOR))) NIL T T
:pinfo SET-USER-STREAM-WRITE-SIMPLE-STRING-METHOD!@$ (S VALUE) NIL (USER-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-USER-STREAM-WRITE-SIMPLE-STRING-METHOD!@$ (SET-STRUCTURE-ELT S 10 VALUE))) NIL T T
:pinfo SET-READTABLE-ATTRIBUTES!@$ (S VALUE) NIL (READTABLE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-READTABLE-ATTRIBUTES!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo TWO-WAY-STREAM-ELEMENT-SIZE (S) NIL (TWO-WAY-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK TWO-WAY-STREAM-ELEMENT-SIZE (STRUCTURE-ELT S 2))) NIL T T
:pinfo SET-PHYSICAL-PATHNAME-DEVICE!@$ (S VALUE) NIL (PHYSICAL-PATHNAME T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PHYSICAL-PATHNAME-DEVICE!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo INSPECT-SYMBOL (X) NIL NIL NIL NIL NIL NIL T
:pinfo DEFINE-FUNCTION (NAME KIND IN-TYPES OUT-TYPES BODY SAFE-FUNCTION FUNCTION) NIL NIL NIL NIL NIL NIL T
:pinfo TERMINAL-STREAM-READ-BYTE-METHOD (S) NIL (TERMINAL-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK TERMINAL-STREAM-READ-BYTE-METHOD (STRUCTURE-ELT S 8))) NIL T T
:pinfo READ-CHAR-UNSAFE (STREAM EOF-ERROR-P EOF-VALUE) NIL NIL NIL (LAMBDA (STREAM EOF-ERROR-P EOF-VALUE) (DECLARE) (BLOCK READ-CHAR-UNSAFE (FUNCALL (THE COMPILED-FUNCTION (STREAM-READ-CHAR-METHOD STREAM)) STREAM EOF-ERROR-P EOF-VALUE))) NIL T T
:pinfo NULL-OR-QUOTED (X) NIL NIL NIL NIL NIL NIL T
:pinfo FIND-RESTART (NAME) NIL NIL NIL NIL NIL NIL T
:pinfo INTERN (NAME &OPTIONAL (P *PACKAGE*)) NIL NIL NIL (LAMBDA (NAME &OPTIONAL (P *PACKAGE*)) (DECLARE) (BLOCK INTERN (INTERN/2 NAME (COERCE-TO-PACKAGE P)))) NIL T T
:pinfo INTERNAL-SIMPLE-CONDITION--DUMMY-SLOT- (S) NIL (SIMPLE-CONDITION) NIL (LAMBDA (S) (DECLARE) (BLOCK INTERNAL-SIMPLE-CONDITION--DUMMY-SLOT- (STRUCTURE-ELT S 1))) NIL T T
:pinfo LINE-NUMBER-STREAM-ELEMENT-TYPE (S) NIL (LINE-NUMBER-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK LINE-NUMBER-STREAM-ELEMENT-TYPE (STRUCTURE-ELT S 1))) NIL T T
:pinfo SYNONYM-STREAM-SYMBOL (S) NIL (SYNONYM-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK SYNONYM-STREAM-SYMBOL (STRUCTURE-ELT S 15))) NIL T T
:pinfo SET-STREAM-PEEK-CHAR-METHOD!@$ (S VALUE) NIL (STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STREAM-PEEK-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 12 VALUE))) NIL T T
:pinfo SIMPLE-UNSIGNED-32BIT-VECTOR-P (X) NIL NIL NIL (LAMBDA (X) (DECLARE) (BLOCK SIMPLE-UNSIGNED-32BIT-VECTOR-P (%TAG= X TYPE-SIMPLE-UNSIGNED-32BIT-VECTOR))) NIL T T
:pinfo CELL-ERROR-NAME (S) NIL (CELL-ERROR) NIL (LAMBDA (S) (DECLARE) (BLOCK CELL-ERROR-NAME (STRUCTURE-ELT S 2))) NIL T T
:pinfo SET-INTERACTIVE-STREAM-WRITE-FLOAT-METHOD!@$ (S VALUE) NIL (INTERACTIVE-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INTERACTIVE-STREAM-WRITE-FLOAT-METHOD!@$ (SET-STRUCTURE-ELT S 9 VALUE))) NIL T T
:pinfo FPTR-STREAM-WRITE-FLOAT-METHOD (S) NIL (FPTR-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK FPTR-STREAM-WRITE-FLOAT-METHOD (STRUCTURE-ELT S 9))) NIL T T
:pinfo STRUCT-INFO-CHILDREN (S) NIL (STRUCT-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK STRUCT-INFO-CHILDREN (STRUCTURE-ELT S 2))) NIL T T
:finfo APPLY_FUNCTION "apply_function" (ARGC F L) (R) (T T T) (T)
:pinfo SET-INTERNAL-SIMPLE-ERROR-FORMAT-STRING!@$ (S VALUE) NIL (SIMPLE-ERROR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INTERNAL-SIMPLE-ERROR-FORMAT-STRING!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo PRIN1-TO-STRING (X) NIL NIL NIL NIL NIL NIL T
:pinfo SET-FILE-STREAM-ELEMENT-SIZE!@$ (S VALUE) NIL (FILE-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FILE-STREAM-ELEMENT-SIZE!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SIMPLE-BIT-VECTOR-P (X) NIL NIL NIL (LAMBDA (X) (DECLARE) (BLOCK SIMPLE-BIT-VECTOR-P (%TAG= X TYPE-SIMPLE-BIT-VECTOR))) NIL T T
:pinfo LOOP-HACK-ITERATION (ENTRY) NIL NIL NIL NIL NIL NIL T
:pinfo CONCATENATED-STREAM-OUTPUT-SINK (S) NIL (CONCATENATED-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK CONCATENATED-STREAM-OUTPUT-SINK (STRUCTURE-ELT S 4))) NIL T T
:pinfo REMOVE-DUPLICATES/LIST (LIST TEST KEY) NIL NIL NIL NIL NIL NIL T
:pinfo SYNONYM-STREAM-FORCE-OUTPUT-METHOD (S) NIL (SYNONYM-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK SYNONYM-STREAM-FORCE-OUTPUT-METHOD (STRUCTURE-ELT S 11))) NIL T T
:finfo ALLOC_MEMORY "alloc_memory" (LEN WORD-SIZE TYPE) (S) (INT INT INT) (T)
:pinfo SET-FPTR-STREAM-WRITE-CHAR-METHOD!@$ (S VALUE) NIL (FPTR-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FPTR-STREAM-WRITE-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo FPTR-STREAM-ELEMENT-SIZE (S) NIL (FPTR-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK FPTR-STREAM-ELEMENT-SIZE (STRUCTURE-ELT S 2))) NIL T T
:pinfo SET-FILE-STREAM-WRITE-BYTE-METHOD!@$ (S VALUE) NIL (FILE-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FILE-STREAM-WRITE-BYTE-METHOD!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo SET-LINE-NUMBER-STREAM-WRITE-CHAR-METHOD!@$ (S VALUE) NIL (LINE-NUMBER-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-LINE-NUMBER-STREAM-WRITE-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo SET-INTERACTIVE-STREAM-READ-BYTE-METHOD!@$ (S VALUE) NIL (INTERACTIVE-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INTERACTIVE-STREAM-READ-BYTE-METHOD!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo PRINT-RUNTIME-STATISTICS (FORM) NIL NIL NIL NIL NIL NIL T
:pinfo MEMQL (E L) NIL NIL NIL NIL NIL NIL T
:pinfo SET-RESTART-REPORT-FUNCTION!@$ (S VALUE) NIL (RESTART T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-RESTART-REPORT-FUNCTION!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo FILL-POINTER (V) NIL (VECTOR) NIL (LAMBDA (V) (DECLARE) (BLOCK FILL-POINTER (%32BIT-REF V VECTOR-FILL-POINTER-OFFSET))) NIL T T
:pinfo SET-STRUCT-INFO-SLOTS!@$ (S VALUE) NIL (STRUCT-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STRUCT-INFO-SLOTS!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo USER-DEFINED-STREAM-UNREAD-CHAR-METHOD (S) NIL (USER-DEFINED-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK USER-DEFINED-STREAM-UNREAD-CHAR-METHOD (STRUCTURE-ELT S 13))) NIL T T
:pinfo ALPHANUMERICP (CHAR) NIL NIL NIL NIL NIL NIL T
:pinfo INTERNAL-SIMPLE-CONDITION-FORMAT-STRING (S) NIL (SIMPLE-CONDITION) NIL (LAMBDA (S) (DECLARE) (BLOCK INTERNAL-SIMPLE-CONDITION-FORMAT-STRING (STRUCTURE-ELT S 2))) NIL T T
:pinfo FBOUNDP (F) NIL (FUNCTION-SPECIFIER) NIL NIL NIL NIL T
:pinfo SET-LAMBDA-LIST-ALLOW-OTHER-KEYS?!@$ (S VALUE) NIL (LAMBDA-LIST T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-LAMBDA-LIST-ALLOW-OTHER-KEYS?!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo COPY-HASH-TABLE (S) NIL NIL NIL NIL NIL NIL T
:pinfo COERCE-TO-PACKAGE (NAME) NIL NIL NIL NIL NIL NIL T
:pinfo DENOMINATOR (R) NIL (RATIO) NIL NIL NIL NIL T
:pinfo COPY-LIST (LIST) NIL NIL NIL NIL NIL NIL T
:pinfo BQ-SPLICING-FROB (X) NIL NIL NIL NIL NIL NIL T
:pinfo SET-ERROR--DUMMY-SLOT-!@$ (S VALUE) NIL (ERROR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-ERROR--DUMMY-SLOT-!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo LINE-NUMBER-STREAM-INPUT-SOURCE (S) NIL (LINE-NUMBER-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK LINE-NUMBER-STREAM-INPUT-SOURCE (STRUCTURE-ELT S 3))) NIL T T
:pinfo SET-TYPE-ERROR--DUMMY-SLOT-!@$ (S VALUE) NIL (TYPE-ERROR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TYPE-ERROR--DUMMY-SLOT-!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo LOOKUP-STRUCTURE-INFO (NAME) NIL NIL NIL NIL NIL NIL T
:pinfo ALL-CURRENT-STRUCTURE-CHILDREN (NAME) NIL NIL NIL NIL NIL NIL T
:pinfo SET-SYMBOL-FUNCTION (X F) NIL (SYMBOL COMPILED-FUNCTION) NIL (LAMBDA (X F) (DECLARE) (BLOCK SET-SYMBOL-FUNCTION (%SYMDEF X SYMBOL-FUNCTION-OFFSET F) F)) NIL T T
:pinfo CONCATENATED-STREAM-WRITE-BYTE-METHOD (S) NIL (CONCATENATED-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK CONCATENATED-STREAM-WRITE-BYTE-METHOD (STRUCTURE-ELT S 7))) NIL T T
:pinfo FLUID-STREAMP!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo LISTEN/1 (STREAM) NIL NIL NIL NIL NIL NIL T
:pinfo LAMBDA-LIST-KEYS (S) NIL (LAMBDA-LIST) NIL (LAMBDA (S) (DECLARE) (BLOCK LAMBDA-LIST-KEYS (STRUCTURE-ELT S 5))) NIL T T
:pinfo PRIN1 (X &OPTIONAL (STREAM *STANDARD-OUTPUT*)) NIL NIL NIL (LAMBDA (X &OPTIONAL (STREAM *STANDARD-OUTPUT*)) (DECLARE) (BLOCK PRIN1 (PRIN1/2 X STREAM))) NIL T T
:pinfo TYPE-OF (X) NIL NIL NIL NIL NIL NIL T
:pinfo MAKE-PROCEDURE-OBJECT (CODE-POINTER) NIL NIL NIL NIL NIL NIL T
:pinfo SET-MACRO-CHAR-FUNCTION!@$ (S VALUE) NIL (MACRO-CHAR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-MACRO-CHAR-FUNCTION!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo DEBUG-PROMPT NIL NIL NIL NIL NIL NIL NIL T
:pinfo SET-USER-DEFINED-STREAM-WRITE-CHAR-METHOD!@$ (S VALUE) NIL (USER-DEFINED-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-USER-DEFINED-STREAM-WRITE-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo SET-USER-DEFINED-STREAM-WRITE-SIMPLE-STRING-METHOD!@$ (S VALUE) NIL (USER-DEFINED-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-USER-DEFINED-STREAM-WRITE-SIMPLE-STRING-METHOD!@$ (SET-STRUCTURE-ELT S 10 VALUE))) NIL T T
:pinfo SET-INTERACTIVE-STREAM-WRITE-SIMPLE-STRING-METHOD!@$ (S VALUE) NIL (INTERACTIVE-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INTERACTIVE-STREAM-WRITE-SIMPLE-STRING-METHOD!@$ (SET-STRUCTURE-ELT S 10 VALUE))) NIL T T
:pinfo SET-SYNONYM-STREAM-SYMBOL!@$ (S VALUE) NIL (SYNONYM-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SYNONYM-STREAM-SYMBOL!@$ (SET-STRUCTURE-ELT S 15 VALUE))) NIL T T
:pinfo TWO-WAY-STREAM-WRITE-FLOAT-METHOD (S) NIL (TWO-WAY-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK TWO-WAY-STREAM-WRITE-FLOAT-METHOD (STRUCTURE-ELT S 9))) NIL T T
:pinfo BROADCAST-STREAM-WRITE-BYTE-METHOD (S) NIL (BROADCAST-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK BROADCAST-STREAM-WRITE-BYTE-METHOD (STRUCTURE-ELT S 7))) NIL T T
:pinfo SET-SYMBOL-PRINT-ESCAPE-FLAG-VALID? (S) NIL NIL NIL (LAMBDA (S) (DECLARE) (BLOCK SET-SYMBOL-PRINT-ESCAPE-FLAG-VALID? (SET-SYMBOL-FLAG S PRINT-ESCAPE-FLAG-VALID?) S)) NIL T T
:pinfo DIRDESC-LOC (S) NIL NIL NIL (LAMBDA (S) (DECLARE) (BLOCK DIRDESC-LOC (C-STRUCT-REF S DIRDESC LOC))) NIL T T
:pinfo SET-STRUCT-SLOT-READ-ONLY?!@$ (S VALUE) NIL (STRUCT-SLOT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STRUCT-SLOT-READ-ONLY?!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo SET-TWO-WAY-STREAM-WRITE-BYTE-METHOD!@$ (S VALUE) NIL (TWO-WAY-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TWO-WAY-STREAM-WRITE-BYTE-METHOD!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo STRING-STREAM-WRITE-BYTE-METHOD (S) NIL (STRING-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK STRING-STREAM-WRITE-BYTE-METHOD (STRUCTURE-ELT S 7))) NIL T T
:pinfo STREAM-UNREAD-CHAR-METHOD (S) NIL (STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK STREAM-UNREAD-CHAR-METHOD (STRUCTURE-ELT S 13))) NIL T T
:pinfo COPY-STRUCT-SLOT (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-INTERNAL-SIMPLE-CONDITION--DUMMY-SLOT-!@$ (S VALUE) NIL (SIMPLE-CONDITION T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INTERNAL-SIMPLE-CONDITION--DUMMY-SLOT-!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo MULTI-ARRAY-BOUNDS-ERROR (A INDICES) NIL NIL NIL NIL NIL NIL T
:pinfo MIN/2 (X Y) NIL NIL NIL (LAMBDA (X Y) (DECLARE) (BLOCK MIN/2 (IF (< X Y) X Y))) NIL T T
:pinfo SET-PCL-WALKER-MACRO-ORIGINAL-ARG-LIST!@$ (S VALUE) NIL (PCL-WALKER-MACRO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PCL-WALKER-MACRO-ORIGINAL-ARG-LIST!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo NREVERSE/VECTOR (S) NIL NIL NIL NIL NIL NIL T
:pinfo CAAAR (C) NIL NIL NIL (LAMBDA (C) (DECLARE) (BLOCK CAAAR (CAR (CAR (CAR C))))) NIL T T
:pinfo HASH-TABLE-REHASH-THRESHOLD (S) NIL (HASH-TABLE) NIL (LAMBDA (S) (DECLARE) (BLOCK HASH-TABLE-REHASH-THRESHOLD (STRUCTURE-ELT S 7))) NIL T T
:pinfo SET-USER-DEFINED-STREAM-LISTEN-METHOD!@$ (S VALUE) NIL (USER-DEFINED-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-USER-DEFINED-STREAM-LISTEN-METHOD!@$ (SET-STRUCTURE-ELT S 14 VALUE))) NIL T T
:pinfo SET-LINE-NUMBER-STREAM-ELEMENT-SIZE!@$ (S VALUE) NIL (LINE-NUMBER-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-LINE-NUMBER-STREAM-ELEMENT-SIZE!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo DIRDESC-FILE-DESC (S) NIL NIL NIL (LAMBDA (S) (DECLARE) (BLOCK DIRDESC-FILE-DESC (C-STRUCT-REF S DIRDESC FILE-DESC))) NIL T T
:pinfo USER-STREAM-WRITE-CHAR-METHOD (S) NIL (USER-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK USER-STREAM-WRITE-CHAR-METHOD (STRUCTURE-ELT S 5))) NIL T T
:pinfo INTEGER-LENGTH (N) NIL (INTEGER) NIL NIL NIL NIL T
:pinfo TOKEN->OBJECT (TOKEN) NIL NIL NIL NIL NIL NIL T
:pinfo PRINT-COPYRIGHT NIL NIL NIL NIL NIL NIL NIL T
:pinfo LOOP-NAMED-VARIABLE (NAME) NIL NIL NIL NIL NIL NIL T
:pinfo CONSTANT-VAR? (S) NIL NIL NIL (LAMBDA (S) (DECLARE) (BLOCK CONSTANT-VAR? (= (SYMBOL-FLAG S CONSTANT-SYMBOL-FLAG) 1))) NIL T T
:pinfo SET-SYNONYM-STREAM-PEEK-CHAR-METHOD!@$ (S VALUE) NIL (SYNONYM-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SYNONYM-STREAM-PEEK-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 12 VALUE))) NIL T T
:pinfo SET-CONCATENATED-STREAM-UNREAD-CHAR-METHOD!@$ (S VALUE) NIL (CONCATENATED-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONCATENATED-STREAM-UNREAD-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 13 VALUE))) NIL T T
:pinfo ARRAY-P (X) NIL NIL NIL (LAMBDA (X) (DECLARE) (BLOCK ARRAY-P (ARRAYP X))) NIL T T
:pinfo FLUID-END-OF-FILE-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo C-SYMBOL-VALUE (NAME) NIL NIL NIL NIL NIL NIL T
:pinfo BROADCAST-STREAM-UNREAD-CHAR-METHOD (S) NIL (BROADCAST-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK BROADCAST-STREAM-UNREAD-CHAR-METHOD (STRUCTURE-ELT S 13))) NIL T T
:pinfo SET-TWO-WAY-STREAM-INPUT-SOURCE!@$ (S VALUE) NIL (TWO-WAY-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TWO-WAY-STREAM-INPUT-SOURCE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SET-ECHO-STRING-READ-CHAR-METHOD!@$ (S VALUE) NIL (ECHO-STRING T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-ECHO-STRING-READ-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo CDDDR (C) NIL NIL NIL (LAMBDA (C) (DECLARE) (BLOCK CDDDR (CDR (CDR (CDR C))))) NIL T T
:pinfo CONSTRUCTOR-FOR-PROGRAM-ERROR/1 (-DUMMY-SLOT-) NIL NIL NIL NIL NIL NIL T
:pinfo LOOP-BIND-BLOCK NIL NIL NIL NIL NIL NIL NIL T
:pinfo SET-CHAR-MACRO-INFO (RT CHAR VALUE) NIL NIL NIL NIL NIL NIL T
:pinfo COPY-STREAM (S) NIL NIL NIL NIL NIL NIL T
:pinfo PROVIDE (MODULE-NAME) NIL NIL NIL NIL NIL NIL T
:pinfo SET-TWO-WAY-STREAM-LISTEN-METHOD!@$ (S VALUE) NIL (TWO-WAY-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TWO-WAY-STREAM-LISTEN-METHOD!@$ (SET-STRUCTURE-ELT S 14 VALUE))) NIL T T
:pinfo FILE-STREAM-WRITE-CHAR-METHOD (S) NIL (FILE-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK FILE-STREAM-WRITE-CHAR-METHOD (STRUCTURE-ELT S 5))) NIL T T
:pinfo MINUSP (N) NIL NIL NIL (LAMBDA (N) (DECLARE) (BLOCK MINUSP (< N 0))) NIL T T
:pinfo SET-COMPILER-MACRO-EXPANSION-FUNCTION!@$ (S VALUE) NIL (COMPILER-MACRO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-COMPILER-MACRO-EXPANSION-FUNCTION!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo INIT-DEFAULT-READTABLE (RT) NIL NIL NIL NIL NIL NIL T
:pinfo DIRDESC-SIZE (S) NIL NIL NIL (LAMBDA (S) (DECLARE) (BLOCK DIRDESC-SIZE (C-STRUCT-REF S DIRDESC SIZE))) NIL T T
:pinfo WRITE-SIMPLE-STRING-UNSAFE (STRING STREAM) NIL NIL NIL (LAMBDA (STRING STREAM) (DECLARE) (BLOCK WRITE-SIMPLE-STRING-UNSAFE (FUNCALL (THE COMPILED-FUNCTION (STREAM-WRITE-SIMPLE-STRING-METHOD STREAM)) STREAM STRING))) NIL T T
:pinfo SET-STRING-STREAM-INPUT-SOURCE!@$ (S VALUE) NIL (STRING-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STRING-STREAM-INPUT-SOURCE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SET-FILE-STREAM-OUTPUT-SINK!@$ (S VALUE) NIL (FILE-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FILE-STREAM-OUTPUT-SINK!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo STREAM-ELEMENT-SIZE (S) NIL (STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK STREAM-ELEMENT-SIZE (STRUCTURE-ELT S 2))) NIL T T
:pinfo SET-UNDEFINED-FUNCTION-NAME!@$ (S VALUE) NIL (UNDEFINED-FUNCTION T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-UNDEFINED-FUNCTION-NAME!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SET-CONCATENATED-STREAM-ELEMENT-SIZE!@$ (S VALUE) NIL (CONCATENATED-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONCATENATED-STREAM-ELEMENT-SIZE!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo DPB/FIXNUM (VALUE SIZE POSITION N) NIL NIL NIL NIL NIL NIL T
:pinfo CURRENT-DEFAULT-PATHNAME NIL NIL NIL NIL NIL NIL NIL T
:pinfo ROUND (N &OPTIONAL (DIVISOR 1)) NIL NIL NIL (LAMBDA (N &OPTIONAL (DIVISOR 1)) (DECLARE) (BLOCK ROUND (ROUND/2 N DIVISOR))) NIL T T
:pinfo CONCAT-TO-STRING-1 (NEW NEXT ARGS I END) NIL NIL NIL NIL NIL NIL T
:pinfo SET-INTERACTIVE-STREAM-ELEMENT-TYPE!@$ (S VALUE) NIL (INTERACTIVE-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INTERACTIVE-STREAM-ELEMENT-TYPE!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo MIN (ARG-1 &RESTV ARGS) NIL NIL NIL NIL NIL NIL T
:pinfo SET-TERMINAL-STREAM-WRITE-SIMPLE-STRING-METHOD!@$ (S VALUE) NIL (TERMINAL-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TERMINAL-STREAM-WRITE-SIMPLE-STRING-METHOD!@$ (SET-STRUCTURE-ELT S 10 VALUE))) NIL T T
:pinfo CAAR (C) NIL NIL NIL (LAMBDA (C) (DECLARE) (BLOCK CAAR (CAR (CAR C)))) NIL T T
:pinfo SET-INTERNAL-SIMPLE-ERROR--DUMMY-SLOT-!@$ (S VALUE) NIL (SIMPLE-ERROR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INTERNAL-SIMPLE-ERROR--DUMMY-SLOT-!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo TWO-WAY-STREAM-WRITE-SIMPLE-STRING-METHOD (S) NIL (TWO-WAY-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK TWO-WAY-STREAM-WRITE-SIMPLE-STRING-METHOD (STRUCTURE-ELT S 10))) NIL T T
:pinfo SET-CONCATENATED-STREAM-OUTPUT-SINK!@$ (S VALUE) NIL (CONCATENATED-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONCATENATED-STREAM-OUTPUT-SINK!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo USER-STREAM-ELEMENT-TYPE (S) NIL (USER-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK USER-STREAM-ELEMENT-TYPE (STRUCTURE-ELT S 1))) NIL T T
:pinfo LINE-NUMBER-STREAM-LISTEN-METHOD (S) NIL (LINE-NUMBER-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK LINE-NUMBER-STREAM-LISTEN-METHOD (STRUCTURE-ELT S 14))) NIL T T
:pinfo SET-STREAM-READ-BYTE-METHOD!@$ (S VALUE) NIL (STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STREAM-READ-BYTE-METHOD!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo DIRECTORY-NAMESTRING (FILE) NIL NIL NIL NIL NIL NIL T
:pinfo SET-SVREF (V I VALUE) NIL (SIMPLE-VECTOR FIXNUM T) NIL NIL NIL NIL T
:pinfo NSTRING-DOWNCASE (STRING &KEY (START 0) END) NIL NIL NIL (LAMBDA (STRING &KEY (START 0) END) (DECLARE) (BLOCK NSTRING-DOWNCASE (NSTRING-DOWNCASE/4 STRING STRING START (OR END (LENGTH STRING))))) NIL T T
:pinfo TERMINAL-STREAM-ELEMENT-TYPE (S) NIL (TERMINAL-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK TERMINAL-STREAM-ELEMENT-TYPE (STRUCTURE-ELT S 1))) NIL T T
:pinfo VECTOR-P (X) NIL NIL NIL (LAMBDA (X) (DECLARE) (BLOCK VECTOR-P (VECTORP X))) NIL T T
:pinfo PACKAGE-ERROR-PATHNAME (S) NIL (PACKAGE-ERROR) NIL (LAMBDA (S) (DECLARE) (BLOCK PACKAGE-ERROR-PATHNAME (STRUCTURE-ELT S 2))) NIL T T
:finfo DIVIDE "divide" (X Y) (SUM) (T T) (T)
:pinfo FIND/7 (ITEM SEQUENCE TEST KEY START END FROM-END) NIL NIL NIL NIL NIL NIL T
:pinfo STRING-STREAM-UNREAD-CHAR-METHOD (S) NIL (STRING-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK STRING-STREAM-UNREAD-CHAR-METHOD (STRUCTURE-ELT S 13))) NIL T T
:pinfo OBJECT-HEADER (X) NIL NIL NIL (LAMBDA (X) (DECLARE) (BLOCK OBJECT-HEADER (%POINTER (%32BIT-REF X -1)))) NIL T T
:pinfo SET-USER-DEFINED-STREAM-PEEK-CHAR-METHOD!@$ (S VALUE) NIL (USER-DEFINED-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-USER-DEFINED-STREAM-PEEK-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 12 VALUE))) NIL T T
:pinfo SET-STRUCT-INFO-DYNAMIC?!@$ (S VALUE) NIL (STRUCT-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STRUCT-INFO-DYNAMIC?!@$ (SET-STRUCTURE-ELT S 20 VALUE))) NIL T T
:pinfo GET-INTERNAL-RUN-TIME NIL NIL NIL NIL NIL NIL NIL T
:pinfo IOBUF-POINTER (S) NIL NIL NIL (LAMBDA (S) (DECLARE) (BLOCK IOBUF-POINTER (C-STRUCT-REF S IOBUF POINTER))) NIL T T
:pinfo SET-BROADCAST-STREAM-UNREAD-CHAR-METHOD!@$ (S VALUE) NIL (BROADCAST-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-BROADCAST-STREAM-UNREAD-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 13 VALUE))) NIL T T
:pinfo HASH-TABLE-LENGTH (S) NIL (HASH-TABLE) NIL (LAMBDA (S) (DECLARE) (BLOCK HASH-TABLE-LENGTH (STRUCTURE-ELT S 4))) NIL T T
:pinfo SET-LAMBDA-LIST-RESTV!@$ (S VALUE) NIL (LAMBDA-LIST T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-LAMBDA-LIST-RESTV!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo SXHASH/SYMBOL (X) NIL NIL NIL (LAMBDA (X) (DECLARE) (BLOCK SXHASH/SYMBOL (SYMBOL-HASH-CODE X))) NIL T T
:pinfo SET-VARIABLE-VALUE (SYMBOL VALUE VENV) NIL NIL NIL NIL NIL NIL T
:pinfo FLUID-SIMPLE-CONDITION-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo INITIAL-VALUE (X) NIL NIL NIL NIL NIL NIL T
:pinfo SET-CASE-FAILURE-DATUM!@$ (S VALUE) NIL (CASE-FAILURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CASE-FAILURE-DATUM!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo INTERNAL-SIMPLE-WARNING-FORMAT-STRING (S) NIL (SIMPLE-WARNING) NIL (LAMBDA (S) (DECLARE) (BLOCK INTERNAL-SIMPLE-WARNING-FORMAT-STRING (STRUCTURE-ELT S 2))) NIL T T
:pinfo STABLE-SORT-SIMPLE-VECTOR (VECTOR PRED KEY) NIL NIL NIL NIL NIL NIL T
:pinfo EVAL-QUOTE (FORM) NIL NIL NIL NIL NIL NIL T
:pinfo INTERACTIVE-STREAM-ELEMENT-TYPE (S) NIL (INTERACTIVE-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK INTERACTIVE-STREAM-ELEMENT-TYPE (STRUCTURE-ELT S 1))) NIL T T
:pinfo LOGNOR (I1 I2) NIL NIL NIL (LAMBDA (I1 I2) (DECLARE) (BLOCK LOGNOR (LOGNOT (LOGIOR I1 I2)))) NIL T T
:pinfo LOGNOT (X) NIL (FIXNUM) NIL (LAMBDA (X) (DECLARE) (BLOCK LOGNOT (%LOGNOT X))) NIL T T
:pinfo SET-LAMBDA-LIST-AUXES!@$ (S VALUE) NIL (LAMBDA-LIST T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-LAMBDA-LIST-AUXES!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo SET-TERMINAL-STREAM-WRITE-CHAR-METHOD!@$ (S VALUE) NIL (TERMINAL-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TERMINAL-STREAM-WRITE-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo SET-TWO-WAY-STREAM-FORCE-OUTPUT-METHOD!@$ (S VALUE) NIL (TWO-WAY-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TWO-WAY-STREAM-FORCE-OUTPUT-METHOD!@$ (SET-STRUCTURE-ELT S 11 VALUE))) NIL T T
:pinfo STRING-STREAM-READ-CHAR-METHOD (S) NIL (STRING-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK STRING-STREAM-READ-CHAR-METHOD (STRUCTURE-ELT S 6))) NIL T T
:pinfo DEFINE-STRUCTURE (S) NIL NIL NIL NIL NIL NIL T
:pinfo ZEROP (N) NIL NIL NIL (LAMBDA (N) (DECLARE) (BLOCK ZEROP (= N 0))) NIL T T
:pinfo SET-FPTR-STREAM-ELEMENT-SIZE!@$ (S VALUE) NIL (FPTR-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FPTR-STREAM-ELEMENT-SIZE!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SET-ECHO-STRING-WRITE-BYTE-METHOD!@$ (S VALUE) NIL (ECHO-STRING T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-ECHO-STRING-WRITE-BYTE-METHOD!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo EVERY-ODD (L) NIL NIL NIL NIL NIL NIL T
:pinfo SET-FPTR-STREAM-PEEK-CHAR-METHOD!@$ (S VALUE) NIL (FPTR-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FPTR-STREAM-PEEK-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 12 VALUE))) NIL T T
:pinfo FIRST (LIST) NIL NIL NIL (LAMBDA (LIST) (DECLARE) (BLOCK FIRST (CAR LIST))) NIL T T
:pinfo FORCE-OUTPUT-UNSAFE (S) NIL NIL NIL NIL NIL NIL T
:pinfo LAMBDA-LIST-ALLOW-OTHER-KEYS? (S) NIL (LAMBDA-LIST) NIL (LAMBDA (S) (DECLARE) (BLOCK LAMBDA-LIST-ALLOW-OTHER-KEYS? (STRUCTURE-ELT S 8))) NIL T T
:pinfo SET-CASE-FAILURE-EXPECTED-TYPE!@$ (S VALUE) NIL (CASE-FAILURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CASE-FAILURE-EXPECTED-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SELECT-RESTART-OPTION NIL NIL NIL NIL NIL NIL NIL T
:pinfo SET-ECHO-STRING-ELEMENT-TYPE!@$ (S VALUE) NIL (ECHO-STRING T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-ECHO-STRING-ELEMENT-TYPE!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-LAMBDA-LIST-OPTIONALS!@$ (S VALUE) NIL (LAMBDA-LIST T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-LAMBDA-LIST-OPTIONALS!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo USER-DEFINED-STREAM-PEEK-CHAR-METHOD (S) NIL (USER-DEFINED-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK USER-DEFINED-STREAM-PEEK-CHAR-METHOD (STRUCTURE-ELT S 12))) NIL T T
:pinfo INTERNAL-SIMPLE-TYPE-ERROR-FORMAT-ARGUMENTS (S) NIL (SIMPLE-TYPE-ERROR) NIL (LAMBDA (S) (DECLARE) (BLOCK INTERNAL-SIMPLE-TYPE-ERROR-FORMAT-ARGUMENTS (STRUCTURE-ELT S 5))) NIL T T
:pinfo FILE-STREAM-READ-CHAR-METHOD (S) NIL (FILE-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK FILE-STREAM-READ-CHAR-METHOD (STRUCTURE-ELT S 6))) NIL T T
:pinfo INTERACTIVE-STREAM-INPUT-SOURCE (S) NIL (INTERACTIVE-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK INTERACTIVE-STREAM-INPUT-SOURCE (STRUCTURE-ELT S 3))) NIL T T
:pinfo INTERACTIVE-STREAM-OUTPUT-SINK (S) NIL (INTERACTIVE-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK INTERACTIVE-STREAM-OUTPUT-SINK (STRUCTURE-ELT S 4))) NIL T T
:pinfo PROCLAIM (DECL-SPEC) NIL NIL NIL NIL NIL NIL T
:pinfo SET-TERMINAL-STREAM-PEEK-CHAR-METHOD!@$ (S VALUE) NIL (TERMINAL-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TERMINAL-STREAM-PEEK-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 12 VALUE))) NIL T T
:pinfo SET-SYNONYM-STREAM-READ-BYTE-METHOD!@$ (S VALUE) NIL (SYNONYM-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SYNONYM-STREAM-READ-BYTE-METHOD!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo CDDAAR (C) NIL NIL NIL (LAMBDA (C) (DECLARE) (BLOCK CDDAAR (CDR (CDR (CAR (CAR C)))))) NIL T T
:pinfo DIVISION-BY-ZERO-OPERANDS (S) NIL (DIVISION-BY-ZERO) NIL (LAMBDA (S) (DECLARE) (BLOCK DIVISION-BY-ZERO-OPERANDS (STRUCTURE-ELT S 3))) NIL T T
:pinfo SET-LINE-NUMBER-STREAM-UNREAD-CHAR-METHOD!@$ (S VALUE) NIL (LINE-NUMBER-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-LINE-NUMBER-STREAM-UNREAD-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 13 VALUE))) NIL T T
:pinfo BIT-VECTOR-P (X) NIL NIL NIL (LAMBDA (X) (DECLARE) (BLOCK BIT-VECTOR-P (%TAG_MASK= X VECTOR-MASK 0))) NIL T T
:pinfo EQL (X Y) NIL NIL NIL (LAMBDA (X Y) (DECLARE) (BLOCK EQL (C_EQL X Y))) NIL T T
:pinfo FLUID-WARNING-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo QUIT NIL NIL NIL NIL NIL NIL NIL T
:pinfo TERMINAL-STREAM-LISTEN-METHOD (S) NIL (TERMINAL-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK TERMINAL-STREAM-LISTEN-METHOD (STRUCTURE-ELT S 14))) NIL T T
:pinfo SET-SYNONYM-STREAM-ELEMENT-SIZE!@$ (S VALUE) NIL (SYNONYM-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SYNONYM-STREAM-ELEMENT-SIZE!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo GET-INTERNAL-REAL-TIME NIL NIL NIL NIL NIL NIL NIL T
:pinfo SET-USER-STREAM-PEEK-CHAR-METHOD!@$ (S VALUE) NIL (USER-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-USER-STREAM-PEEK-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 12 VALUE))) NIL T T
:pinfo SET-STRING-STREAM-UNREAD-CHAR-METHOD!@$ (S VALUE) NIL (STRING-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STRING-STREAM-UNREAD-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 13 VALUE))) NIL T T
:pinfo STRUCTUREP (X) NIL NIL NIL (LAMBDA (X) (DECLARE) (BLOCK STRUCTUREP (%TAG= X TYPE-STRUCTURE))) NIL T T
:pinfo CADADR (C) NIL NIL NIL (LAMBDA (C) (DECLARE) (BLOCK CADADR (CAR (CDR (CAR (CDR C)))))) NIL T T
:pinfo TERMINAL-STREAM-WRITE-BYTE-METHOD (S) NIL (TERMINAL-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK TERMINAL-STREAM-WRITE-BYTE-METHOD (STRUCTURE-ELT S 7))) NIL T T
:pinfo LONG-SITE-NAME NIL NIL NIL NIL NIL NIL NIL T
:finfo RINT "rint" (X) (RESULT) (DOUBLE) (DOUBLE)
:pinfo CONCAT-TO-VECTOR (ARGS) NIL NIL NIL NIL NIL NIL T
:pinfo LINE-SYMBOL-SYMBOL (S) NIL NIL NIL NIL NIL NIL T
:pinfo STRUCT-INFO-NAMED? (S) NIL (STRUCT-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK STRUCT-INFO-NAMED? (STRUCTURE-ELT S 12))) NIL T T
:pinfo BASIC-MACRO-EXPANSION-FUNCTION (S) NIL (BASIC-MACRO) NIL (LAMBDA (S) (DECLARE) (BLOCK BASIC-MACRO-EXPANSION-FUNCTION (STRUCTURE-ELT S 2))) NIL T T
:pinfo SET-LINE-NUMBER-STREAM-INPUT-SOURCE!@$ (S VALUE) NIL (LINE-NUMBER-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-LINE-NUMBER-STREAM-INPUT-SOURCE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SET-PACKAGE-ERROR--DUMMY-SLOT-!@$ (S VALUE) NIL (PACKAGE-ERROR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PACKAGE-ERROR--DUMMY-SLOT-!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-USER-DEFINED-STREAM-OUTPUT-SINK!@$ (S VALUE) NIL (USER-DEFINED-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-USER-DEFINED-STREAM-OUTPUT-SINK!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo MACHINE-BYTE-ORDER (MACHINE-TYPE) NIL NIL NIL NIL NIL NIL T
:pinfo SET-STRUCT-SLOT-TYPE!@$ (S VALUE) NIL (STRUCT-SLOT T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STRUCT-SLOT-TYPE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo ECHO-STRING-ELEMENT-SIZE (S) NIL (ECHO-STRING) NIL (LAMBDA (S) (DECLARE) (BLOCK ECHO-STRING-ELEMENT-SIZE (STRUCTURE-ELT S 2))) NIL T T
:pinfo SET-BYTE-SIZE!@$ (S VALUE) NIL (BYTE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-BYTE-SIZE!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-USER-STREAM-ELEMENT-SIZE!@$ (S VALUE) NIL (USER-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-USER-STREAM-ELEMENT-SIZE!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo PARENT-STRUCTURE (S) NIL NIL NIL NIL NIL NIL T
:pinfo COMPLEMENT/2 (FUNCTION) NIL NIL NIL NIL NIL NIL T
:pinfo SIMPLE-BIT-ARRAY-P (X) NIL NIL NIL (LAMBDA (X) (DECLARE) (BLOCK SIMPLE-BIT-ARRAY-P (%TAG_MASK= X ARRAY-MASK 0))) NIL T T
:pinfo CADAR (C) NIL NIL NIL (LAMBDA (C) (DECLARE) (BLOCK CADAR (CAR (CDR (CAR C))))) NIL T T
:pinfo FMAKUNBOUND (F) NIL (FUNCTION-SPECIFIER) NIL NIL NIL NIL T
:pinfo MULTI-ARRAY-RANK (A) NIL NIL NIL NIL NIL NIL T
:pinfo NTH (I L) NIL NIL NIL NIL NIL NIL T
:pinfo REALPART (C) NIL (COMPLEX) NIL NIL NIL NIL T
:pinfo BROADCAST-STREAM-PEEK-CHAR-METHOD (S) NIL (BROADCAST-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK BROADCAST-STREAM-PEEK-CHAR-METHOD (STRUCTURE-ELT S 12))) NIL T T
:pinfo RASSOC (X A-LIST &KEY TEST TEST-NOT (KEY (FUNCTION IDENTITY))) NIL NIL NIL NIL NIL NIL T
:pinfo EXPAND-FUNCTION (FORM) NIL NIL NIL NIL NIL NIL T
:pinfo STREAM-WRITE-SIMPLE-STRING-METHOD (S) NIL (STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK STREAM-WRITE-SIMPLE-STRING-METHOD (STRUCTURE-ELT S 10))) NIL T T
:pinfo SET-STORAGE-EXHAUSTED--DUMMY-SLOT-!@$ (S VALUE) NIL (STORAGE-EXHAUSTED T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STORAGE-EXHAUSTED--DUMMY-SLOT-!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo LOOP-TYPED-INIT (DATA-TYPE) NIL NIL NIL NIL NIL NIL T
:pinfo SET-CONCATENATED-STREAM-FORCE-OUTPUT-METHOD!@$ (S VALUE) NIL (CONCATENATED-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONCATENATED-STREAM-FORCE-OUTPUT-METHOD!@$ (SET-STRUCTURE-ELT S 11 VALUE))) NIL T T
:pinfo MAKE-MACRO-CHAR (&KEY (FUNCTION NIL) (NON-TERMINATING? NIL)) NIL NIL NIL (LAMBDA (&KEY (FUNCTION NIL) (NON-TERMINATING? NIL)) (DECLARE) (BLOCK MAKE-MACRO-CHAR (MAKE-MACRO-CHAR/2 FUNCTION NON-TERMINATING?))) NIL T T
:pinfo LISTEN-UNSAFE (STREAM) NIL NIL NIL (LAMBDA (STREAM) (DECLARE) (BLOCK LISTEN-UNSAFE (FUNCALL (THE COMPILED-FUNCTION (STREAM-LISTEN-METHOD STREAM)) STREAM))) NIL T T
:pinfo SET-USER-DEFINED-STREAM-READ-BYTE-METHOD!@$ (S VALUE) NIL (USER-DEFINED-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-USER-DEFINED-STREAM-READ-BYTE-METHOD!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo SET-CONCATENATED-STREAM-INPUT-SOURCE!@$ (S VALUE) NIL (CONCATENATED-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONCATENATED-STREAM-INPUT-SOURCE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo SET-RESTART-INTERACTIVE-FUNCTION!@$ (S VALUE) NIL (RESTART T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-RESTART-INTERACTIVE-FUNCTION!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo CONSTRUCTOR-FOR-STACK-OVERFLOW (&KEY (-DUMMY-SLOT- NIL)) NIL NIL NIL (LAMBDA (&KEY (-DUMMY-SLOT- NIL)) (DECLARE) (BLOCK CONSTRUCTOR-FOR-STACK-OVERFLOW (CONSTRUCTOR-FOR-STACK-OVERFLOW/1 -DUMMY-SLOT-))) NIL T T
:pinfo CHAR=/2 (CHAR1 CHAR2) NIL (CHARACTER CHARACTER) NIL (LAMBDA (CHAR1 CHAR2) (DECLARE) (BLOCK CHAR=/2 (%EQ CHAR1 CHAR2))) NIL T T
:pinfo LOOP-DO-ALWAYS (NEGATE?) NIL NIL NIL NIL NIL NIL T
:pinfo LOOP-SIMPLEP (EXPR) NIL NIL NIL NIL NIL NIL T
:pinfo LCM/2 (N M) NIL NIL NIL NIL NIL NIL T
:pinfo PATHNAME-TYPE (P) NIL NIL NIL NIL NIL NIL T
:pinfo SET-INTERACTIVE-STREAM-FORCE-OUTPUT-METHOD!@$ (S VALUE) NIL (INTERACTIVE-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INTERACTIVE-STREAM-FORCE-OUTPUT-METHOD!@$ (SET-STRUCTURE-ELT S 11 VALUE))) NIL T T
:pinfo LINE-NUMBER-STREAM-WRITE-SIMPLE-STRING-METHOD (S) NIL (LINE-NUMBER-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK LINE-NUMBER-STREAM-WRITE-SIMPLE-STRING-METHOD (STRUCTURE-ELT S 10))) NIL T T
:pinfo LAMBDA-LIST-REQUIRED-ARGS (LIST) NIL NIL NIL NIL NIL NIL T
:pinfo DELETE-DUPLICATES (SEQUENCE &KEY (TEST (FUNCTION EQL)) TEST-NOT (START 0) FROM-END END KEY) NIL NIL NIL NIL NIL NIL T
:pinfo SIMPLE-SIGNED-16BIT-VECTOR-P (X) NIL NIL NIL (LAMBDA (X) (DECLARE) (BLOCK SIMPLE-SIGNED-16BIT-VECTOR-P (%TAG= X TYPE-SIMPLE-SIGNED-16BIT-VECTOR))) NIL T T
:pinfo TYPE-ERROR-DATUM (S) NIL (TYPE-ERROR) NIL (LAMBDA (S) (DECLARE) (BLOCK TYPE-ERROR-DATUM (STRUCTURE-ELT S 2))) NIL T T
:pinfo USER-DEFINED-STREAM-LISTEN-METHOD (S) NIL (USER-DEFINED-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK USER-DEFINED-STREAM-LISTEN-METHOD (STRUCTURE-ELT S 14))) NIL T T
:pinfo SYNONYM-STREAM-READ-BYTE-METHOD (S) NIL (SYNONYM-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK SYNONYM-STREAM-READ-BYTE-METHOD (STRUCTURE-ELT S 8))) NIL T T
:pinfo USER-DEFINED-STREAM-WRITE-CHAR-METHOD (S) NIL (USER-DEFINED-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK USER-DEFINED-STREAM-WRITE-CHAR-METHOD (STRUCTURE-ELT S 5))) NIL T T
:pinfo STRING-STREAM-ELEMENT-TYPE (S) NIL (STRING-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK STRING-STREAM-ELEMENT-TYPE (STRUCTURE-ELT S 1))) NIL T T
:pinfo SET-USER-DEFINED-STREAM-UNREAD-CHAR-METHOD!@$ (S VALUE) NIL (USER-DEFINED-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-USER-DEFINED-STREAM-UNREAD-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 13 VALUE))) NIL T T
:pinfo LOOP-OPTIMIZE-DUPLICATED-CODE-ETC (&AUX BEFORE AFTER GROUPA GROUPB A B LASTDIFF) NIL NIL NIL NIL NIL NIL T
:pinfo MACRO-ENV-SYMBOL-MACROS (S) NIL (MACRO-ENV) NIL (LAMBDA (S) (DECLARE) (BLOCK MACRO-ENV-SYMBOL-MACROS (STRUCTURE-ELT S 2))) NIL T T
:pinfo USER-STREAM-WRITE-SIMPLE-STRING-METHOD (S) NIL (USER-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK USER-STREAM-WRITE-SIMPLE-STRING-METHOD (STRUCTURE-ELT S 10))) NIL T T
:pinfo UNBOUND-VARIABLE-MARKER-P (X) NIL NIL NIL NIL NIL NIL T
:pinfo SET-DIVISION-BY-ZERO-OPERANDS!@$ (S VALUE) NIL (DIVISION-BY-ZERO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-DIVISION-BY-ZERO-OPERANDS!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo ARRAY-DIMENSIONS (A) NIL (ARRAY) NIL NIL NIL NIL T
:pinfo ARRAY-TYPE-TAG (A) NIL NIL NIL NIL NIL NIL T
:pinfo SET-CONTROL-ERROR--DUMMY-SLOT-!@$ (S VALUE) NIL (CONTROL-ERROR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONTROL-ERROR--DUMMY-SLOT-!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo READ-LINE-1 (STREAM LEN EOF-ERROR-P EOF-VALUE) NIL NIL NIL NIL NIL NIL T
:pinfo SET-PCL-WALKER-MACRO-INFO!@$ (S VALUE) NIL (PCL-WALKER-MACRO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PCL-WALKER-MACRO-INFO!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo REF-STRUCTURE-AS-VECTOR (S I) NIL NIL NIL NIL NIL NIL T
:pinfo HASH-TABLE-COUNT (S) NIL (HASH-TABLE) NIL (LAMBDA (S) (DECLARE) (BLOCK HASH-TABLE-COUNT (STRUCTURE-ELT S 5))) NIL T T
:pinfo SET-FPTR-STREAM-READ-BYTE-METHOD!@$ (S VALUE) NIL (FPTR-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FPTR-STREAM-READ-BYTE-METHOD!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo LOOP-END-TESTIFY (LIST-OF-FORMS) NIL NIL NIL NIL NIL NIL T
:pinfo SET-LAMBDA-LIST-KEYS!@$ (S VALUE) NIL (LAMBDA-LIST T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-LAMBDA-LIST-KEYS!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo TWO-WAY-STREAM-WRITE-CHAR-METHOD (S) NIL (TWO-WAY-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK TWO-WAY-STREAM-WRITE-CHAR-METHOD (STRUCTURE-ELT S 5))) NIL T T
:pinfo LOAD-INIT-FILE NIL NIL NIL NIL NIL NIL NIL T
:pinfo TERMINAL-STREAM-READ-CHAR-METHOD (S) NIL (TERMINAL-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK TERMINAL-STREAM-READ-CHAR-METHOD (STRUCTURE-ELT S 6))) NIL T T
:pinfo INPUT-STREAM-P (STREAM) NIL NIL NIL NIL NIL NIL T
:pinfo LOOP-SIMPLEP-1 (X) NIL NIL NIL NIL NIL NIL T
:pinfo GET-MACRO-CHARACTER (CHAR &OPTIONAL (RT *READTABLE*)) NIL NIL NIL NIL NIL NIL T
:pinfo FLUID-TYPE-ERROR-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo ARRAY-ELEMENT-SIZE (ARRAY) NIL NIL NIL NIL NIL NIL T
:pinfo REWRITE-ARRAY-TYPEP (FORM TYPE SECOND THIRD) NIL NIL NIL NIL NIL NIL T
:pinfo STRUCT-INFO-FIRST-SLOT-INDEX (S) NIL (STRUCT-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK STRUCT-INFO-FIRST-SLOT-INDEX (STRUCTURE-ELT S 14))) NIL T T
:pinfo SET-PACKAGE-ERROR-PATHNAME!@$ (S VALUE) NIL (PACKAGE-ERROR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PACKAGE-ERROR-PATHNAME!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SET-SYNONYM-STREAM-WRITE-CHAR-METHOD!@$ (S VALUE) NIL (SYNONYM-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SYNONYM-STREAM-WRITE-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo PARSE-LAMBDA-LIST (L) NIL NIL NIL NIL NIL NIL T
:pinfo GDBBACKTRACE (FUNCTION) NIL NIL NIL NIL NIL NIL T
:pinfo SET-FILE-STREAM-WRITE-CHAR-METHOD!@$ (S VALUE) NIL (FILE-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FILE-STREAM-WRITE-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo PHYSICAL-PATHNAME-VERSION (S) NIL (PHYSICAL-PATHNAME) NIL (LAMBDA (S) (DECLARE) (BLOCK PHYSICAL-PATHNAME-VERSION (STRUCTURE-ELT S 6))) NIL T T
:pinfo SET-WARNING--DUMMY-SLOT-!@$ (S VALUE) NIL (WARNING T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-WARNING--DUMMY-SLOT-!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo COERCE (X TYPE) NIL NIL NIL NIL NIL NIL T
:pinfo FILE-LENGTH (STREAM) NIL (FILE-STREAM) NIL NIL NIL NIL T
:pinfo UNDEFINED-FUNCTION-NAME (S) NIL (UNDEFINED-FUNCTION) NIL (LAMBDA (S) (DECLARE) (BLOCK UNDEFINED-FUNCTION-NAME (STRUCTURE-ELT S 2))) NIL T T
:pinfo SET-SYNONYM-STREAM-WRITE-SIMPLE-STRING-METHOD!@$ (S VALUE) NIL (SYNONYM-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SYNONYM-STREAM-WRITE-SIMPLE-STRING-METHOD!@$ (SET-STRUCTURE-ELT S 10 VALUE))) NIL T T
:pinfo USER-DEFINED-STREAM-WRITE-FLOAT-METHOD (S) NIL (USER-DEFINED-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK USER-DEFINED-STREAM-WRITE-FLOAT-METHOD (STRUCTURE-ELT S 9))) NIL T T
:pinfo TWO-WAY-STREAM-FORCE-OUTPUT-METHOD (S) NIL (TWO-WAY-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK TWO-WAY-STREAM-FORCE-OUTPUT-METHOD (STRUCTURE-ELT S 11))) NIL T T
:pinfo SET-USER-STREAM-WRITE-BYTE-METHOD!@$ (S VALUE) NIL (USER-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-USER-STREAM-WRITE-BYTE-METHOD!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo SET-GC-MESSAGES (FLAG) NIL NIL NIL NIL NIL NIL T
:pinfo RUN-PROGRAM (COMMAND) NIL NIL NIL NIL NIL NIL T
:pinfo USER-DEFINED-STREAM-ELEMENT-TYPE (S) NIL (USER-DEFINED-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK USER-DEFINED-STREAM-ELEMENT-TYPE (STRUCTURE-ELT S 1))) NIL T T
:pinfo SET-STRING-STREAM-READ-CHAR-METHOD!@$ (S VALUE) NIL (STRING-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STRING-STREAM-READ-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo MAKE-FUNCTION (CONDITION-TYPE) NIL NIL NIL NIL NIL NIL T
:pinfo CONCATENATED-STREAM-LISTEN-METHOD (S) NIL (CONCATENATED-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK CONCATENATED-STREAM-LISTEN-METHOD (STRUCTURE-ELT S 14))) NIL T T
:pinfo SET-FPTR-STREAM-INPUT-SOURCE!@$ (S VALUE) NIL (FPTR-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FPTR-STREAM-INPUT-SOURCE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo COMPILER-MACRO-EXPANSION-FUNCTION (S) NIL (COMPILER-MACRO) NIL (LAMBDA (S) (DECLARE) (BLOCK COMPILER-MACRO-EXPANSION-FUNCTION (STRUCTURE-ELT S 2))) NIL T T
:pinfo TWO-WAY-STREAM-PEEK-CHAR-METHOD (S) NIL (TWO-WAY-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK TWO-WAY-STREAM-PEEK-CHAR-METHOD (STRUCTURE-ELT S 12))) NIL T T
:pinfo SET-COMPILER-MACRO-ORIGINAL-ARG-LIST!@$ (S VALUE) NIL (COMPILER-MACRO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-COMPILER-MACRO-ORIGINAL-ARG-LIST!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-LINE-NUMBER-STREAM-READ-CHAR-METHOD!@$ (S VALUE) NIL (LINE-NUMBER-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-LINE-NUMBER-STREAM-READ-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo LIST-ALL-PACKAGES NIL NIL NIL NIL NIL NIL NIL T
:pinfo SET-PROCEDURE-TYPE-FLAG (P FLAG) NIL NIL NIL (LAMBDA (P FLAG) (DECLARE) (BLOCK SET-PROCEDURE-TYPE-FLAG (%SET-OBJECT-LENGTH P FLAG))) NIL T T
:pinfo TOKEN->RATIO (BUFFER) NIL NIL NIL NIL NIL NIL T
:pinfo CONSTRUCTOR-FOR-WARNING (&KEY (-DUMMY-SLOT- NIL)) NIL NIL NIL (LAMBDA (&KEY (-DUMMY-SLOT- NIL)) (DECLARE) (BLOCK CONSTRUCTOR-FOR-WARNING (CONSTRUCTOR-FOR-WARNING/1 -DUMMY-SLOT-))) NIL T T
:finfo DOUBLE_TAN "tan" (X) (R) (DOUBLE) (DOUBLE)
:pinfo FILE-STREAM-PATHNAME (S) NIL (FILE-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK FILE-STREAM-PATHNAME (STRUCTURE-ELT S 15))) NIL T T
:pinfo UNBOUND-VARIABLE-NAME (S) NIL (UNBOUND-VARIABLE) NIL (LAMBDA (S) (DECLARE) (BLOCK UNBOUND-VARIABLE-NAME (STRUCTURE-ELT S 2))) NIL T T
:pinfo SET-USER-STREAM-READ-BYTE-METHOD!@$ (S VALUE) NIL (USER-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-USER-STREAM-READ-BYTE-METHOD!@$ (SET-STRUCTURE-ELT S 8 VALUE))) NIL T T
:pinfo ADD-STRUCTURE-INFO (S) NIL NIL NIL NIL NIL NIL T
:pinfo LOOP-DO-INITIALLY NIL NIL NIL NIL NIL NIL NIL T
:pinfo HASH-TABLE-BUCKETS (S) NIL (HASH-TABLE) NIL (LAMBDA (S) (DECLARE) (BLOCK HASH-TABLE-BUCKETS (STRUCTURE-ELT S 1))) NIL T T
:pinfo EVERY (PREDICATE FIRST-SEQUENCE &REST MORE-SEQUENCES) NIL NIL NIL NIL NIL NIL T
:pinfo SET-READTABLE-HANDLERS!@$ (S VALUE) NIL (READTABLE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-READTABLE-HANDLERS!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo FILE-STREAM-ELEMENT-TYPE (S) NIL (FILE-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK FILE-STREAM-ELEMENT-TYPE (STRUCTURE-ELT S 1))) NIL T T
:pinfo SET-TERMINAL-STREAM-INPUT-SOURCE!@$ (S VALUE) NIL (TERMINAL-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TERMINAL-STREAM-INPUT-SOURCE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo STRING-STREAM-FORCE-OUTPUT-METHOD (S) NIL (STRING-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK STRING-STREAM-FORCE-OUTPUT-METHOD (STRUCTURE-ELT S 11))) NIL T T
:pinfo STRUCT-INFO-PREDICATE (S) NIL (STRUCT-INFO) NIL (LAMBDA (S) (DECLARE) (BLOCK STRUCT-INFO-PREDICATE (STRUCTURE-ELT S 6))) NIL T T
:pinfo BRACKET (X) NIL NIL NIL NIL NIL NIL T
:pinfo ECHO-STRING-OUTPUT-SINK (S) NIL (ECHO-STRING) NIL (LAMBDA (S) (DECLARE) (BLOCK ECHO-STRING-OUTPUT-SINK (STRUCTURE-ELT S 4))) NIL T T
:pinfo FLUID-STRING-STREAM-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-SYNONYM-STREAM-INPUT-SOURCE!@$ (S VALUE) NIL (SYNONYM-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-SYNONYM-STREAM-INPUT-SOURCE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo CAAAAR (C) NIL NIL NIL (LAMBDA (C) (DECLARE) (BLOCK CAAAAR (CAR (CAR (CAR (CAR C)))))) NIL T T
:pinfo REVERSE/VECTOR (S) NIL NIL NIL NIL NIL NIL T
:pinfo CDDDAR (C) NIL NIL NIL (LAMBDA (C) (DECLARE) (BLOCK CDDDAR (CDR (CDR (CDR (CAR C)))))) NIL T T
:pinfo RESTART-NAME (S) NIL (RESTART) NIL (LAMBDA (S) (DECLARE) (BLOCK RESTART-NAME (STRUCTURE-ELT S 1))) NIL T T
:pinfo BROADCAST-STREAM-WRITE-FLOAT-METHOD (S) NIL (BROADCAST-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK BROADCAST-STREAM-WRITE-FLOAT-METHOD (STRUCTURE-ELT S 9))) NIL T T
:pinfo PARSE-BODY (BODY) NIL NIL NIL NIL NIL NIL T
:pinfo FILE-STREAM-UNREAD-CHAR-METHOD (S) NIL (FILE-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK FILE-STREAM-UNREAD-CHAR-METHOD (STRUCTURE-ELT S 13))) NIL T T
:pinfo SET-USER-DEFINED-STREAM-INPUT-SOURCE!@$ (S VALUE) NIL (USER-DEFINED-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-USER-DEFINED-STREAM-INPUT-SOURCE!@$ (SET-STRUCTURE-ELT S 3 VALUE))) NIL T T
:pinfo FLUID-USER-DEFINED-STREAM-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo ACCESSOR-NAME (S SLOT) NIL NIL NIL NIL NIL NIL T
:pinfo SET-PHYSICAL-PATHNAME-NAME!@$ (S VALUE) NIL (PHYSICAL-PATHNAME T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PHYSICAL-PATHNAME-NAME!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo SET-STRUCT-INFO-PREDICATE!@$ (S VALUE) NIL (STRUCT-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STRUCT-INFO-PREDICATE!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo CONSTANTS_INIT74 NIL NIL NIL NIL NIL NIL NIL T
:pinfo PACKAGE-USES-PACKAGES (S) NIL (PACKAGE) NIL (LAMBDA (S) (DECLARE) (BLOCK PACKAGE-USES-PACKAGES (STRUCTURE-ELT S 3))) NIL T T
:pinfo NLIST-SUBSTITUTE* (NEW OLD SEQUENCE TEST TEST-NOT START END COUNT KEY) NIL NIL NIL NIL NIL NIL T
:pinfo VECTOR-WITH-FILL-POINTER-P (X) NIL NIL NIL (LAMBDA (X) (DECLARE) (BLOCK VECTOR-WITH-FILL-POINTER-P (%TAG_MASK= X 135 132))) NIL T T
:pinfo IOBUF-FLAG (S) NIL NIL NIL (LAMBDA (S) (DECLARE) (BLOCK IOBUF-FLAG (C-STRUCT-REF S IOBUF FLAG))) NIL T T
:pinfo BROADCAST-STREAM-READ-CHAR-METHOD (S) NIL (BROADCAST-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK BROADCAST-STREAM-READ-CHAR-METHOD (STRUCTURE-ELT S 6))) NIL T T
:pinfo ABBREVIATE-PACKAGE-NAME (STRING) NIL NIL NIL NIL NIL NIL T
:pinfo BROADCAST-STREAM-STREAMS-LIST (S) NIL (BROADCAST-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK BROADCAST-STREAM-STREAMS-LIST (STRUCTURE-ELT S 15))) NIL T T
:finfo SYSTEM "system" (COMMAND) (STATUS) (CHAR*) (INT)
:pinfo MAX (ARG-1 &RESTV ARGS) NIL NIL NIL NIL NIL NIL T
:pinfo LOOP-PSEUDO-BODY (FORM &AUX (Z (LOOP-MAKE-CONDITIONALIZATION FORM))) NIL NIL NIL NIL NIL NIL T
:pinfo STREAM-LISTEN-METHOD (S) NIL (STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK STREAM-LISTEN-METHOD (STRUCTURE-ELT S 14))) NIL T T
:pinfo SET-INTERNAL-SIMPLE-TYPE-ERROR-DATUM!@$ (S VALUE) NIL (SIMPLE-TYPE-ERROR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INTERNAL-SIMPLE-TYPE-ERROR-DATUM!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SET-CONCATENATED-STREAM-LISTEN-METHOD!@$ (S VALUE) NIL (CONCATENATED-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CONCATENATED-STREAM-LISTEN-METHOD!@$ (SET-STRUCTURE-ELT S 14 VALUE))) NIL T T
:pinfo SET-STRUCT-INFO-INCLUDE!@$ (S VALUE) NIL (STRUCT-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STRUCT-INFO-INCLUDE!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo TERMINAL-STREAM-ELEMENT-SIZE (S) NIL (TERMINAL-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK TERMINAL-STREAM-ELEMENT-SIZE (STRUCTURE-ELT S 2))) NIL T T
:pinfo COPY-TYPE-MACRO (S) NIL NIL NIL NIL NIL NIL T
:pinfo SUBLIS (ALIST TREE &KEY TEST TEST-NOT (KEY (FUNCTION IDENTITY))) NIL NIL NIL NIL NIL NIL T
:pinfo SET-BROADCAST-STREAM-WRITE-BYTE-METHOD!@$ (S VALUE) NIL (BROADCAST-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-BROADCAST-STREAM-WRITE-BYTE-METHOD!@$ (SET-STRUCTURE-ELT S 7 VALUE))) NIL T T
:pinfo COMPLEX-ARRAY-P (X) NIL NIL NIL (LAMBDA (X) (DECLARE) (BLOCK COMPLEX-ARRAY-P (%TAG_MASK= X 5 4))) NIL T T
:pinfo FLUID-TYPE-MACRO-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo IOBUF-FILE (S) NIL NIL NIL (LAMBDA (S) (DECLARE) (BLOCK IOBUF-FILE (C-STRUCT-REF S IOBUF FILE))) NIL T T
:pinfo SECOND (LIST) NIL NIL NIL (LAMBDA (LIST) (DECLARE) (BLOCK SECOND (CADR LIST))) NIL T T
:pinfo MEMBER-IF (TEST LIST &KEY (KEY (FUNCTION IDENTITY))) NIL NIL NIL NIL NIL NIL T
:pinfo MAKE-COMPLEX-VECTOR (LEN ELEMENT-TYPE-TAG ELEMENT-SIZE INITIAL-ELEMENT INITIAL-CONTENTS DISPLACED-TO DISPLACED-INDEX-OFFSET FILL-POINTER) NIL (FIXNUM T T T T T T T) NIL NIL NIL NIL T
:pinfo PROCEDUREP (X) NIL NIL NIL (LAMBDA (X) (DECLARE) (BLOCK PROCEDUREP (%TAG= X TYPE-PROCEDURE))) NIL T T
:pinfo REVERSE/LIST (S) NIL NIL NIL NIL NIL NIL T
:pinfo FORMAT-DO-ITERATION (START END MAX-ITER COLON ATSIGN AT-LEAST-ONCE-P) NIL NIL NIL NIL NIL NIL T
:pinfo USER-STREAM-READ-BYTE-METHOD (S) NIL (USER-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK USER-STREAM-READ-BYTE-METHOD (STRUCTURE-ELT S 8))) NIL T T
:pinfo FLUID-FLOATING-POINT-UNDERFLOW-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo STRING-STREAM-WRITE-FLOAT-METHOD (S) NIL (STRING-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK STRING-STREAM-WRITE-FLOAT-METHOD (STRUCTURE-ELT S 9))) NIL T T
:pinfo STREAM-FORCE-OUTPUT-METHOD (S) NIL (STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK STREAM-FORCE-OUTPUT-METHOD (STRUCTURE-ELT S 11))) NIL T T
:pinfo MAKE-STRING (N &KEY (INITIAL-ELEMENT #\Null)) NIL NIL NIL (LAMBDA (N &KEY (INITIAL-ELEMENT #\Null)) (DECLARE) (BLOCK MAKE-STRING (MAKE-SIMPLE-STRING N INITIAL-ELEMENT))) NIL T T
:pinfo SET-STREAM-UNREAD-CHAR-METHOD!@$ (S VALUE) NIL (STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STREAM-UNREAD-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 13 VALUE))) NIL T T
:pinfo CONCATENATED-STREAM-UNREAD-CHAR-METHOD (S) NIL (CONCATENATED-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK CONCATENATED-STREAM-UNREAD-CHAR-METHOD (STRUCTURE-ELT S 13))) NIL T T
:pinfo RASSOC/4 (X A-LIST TEST KEY) NIL NIL NIL NIL NIL NIL T
:pinfo ADD-SYMBOL (S PACKAGE) NIL NIL NIL NIL NIL NIL T
:pinfo INTERACTIVE-STREAM-READ-BYTE-METHOD (S) NIL (INTERACTIVE-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK INTERACTIVE-STREAM-READ-BYTE-METHOD (STRUCTURE-ELT S 8))) NIL T T
:pinfo EVAL-CONDITIONAL-READ-1 (FEATURE) NIL NIL NIL NIL NIL NIL T
:pinfo COERCE-TO-FUNCTION (F) NIL NIL NIL NIL NIL NIL T
:pinfo CONSTRUCTOR-FOR-CONTROL-ERROR/1 (-DUMMY-SLOT-) NIL NIL NIL NIL NIL NIL T
:pinfo INSPECT-SEQUENCE (X) NIL NIL NIL NIL NIL NIL T
:pinfo MACRO-CHAR-NON-TERMINATING? (S) NIL (MACRO-CHAR) NIL (LAMBDA (S) (DECLARE) (BLOCK MACRO-CHAR-NON-TERMINATING? (STRUCTURE-ELT S 2))) NIL T T
:pinfo UNIX->LISP-PATH-LIST (STRING) NIL NIL NIL NIL NIL NIL T
:pinfo SET-STRUCT-INFO-FIRST-SLOT-INDEX!@$ (S VALUE) NIL (STRUCT-INFO T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STRUCT-INFO-FIRST-SLOT-INDEX!@$ (SET-STRUCTURE-ELT S 14 VALUE))) NIL T T
:pinfo UNDEFINED-FUNCTION--DUMMY-SLOT- (S) NIL (UNDEFINED-FUNCTION) NIL (LAMBDA (S) (DECLARE) (BLOCK UNDEFINED-FUNCTION--DUMMY-SLOT- (STRUCTURE-ELT S 1))) NIL T T
:pinfo TERMINAL-STREAM-UNREAD-CHAR-METHOD (S) NIL (TERMINAL-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK TERMINAL-STREAM-UNREAD-CHAR-METHOD (STRUCTURE-ELT S 13))) NIL T T
:pinfo LOOP-FOR-BEING (VAR VAL DATA-TYPE?) NIL NIL NIL NIL NIL NIL T
:pinfo SET-INTERACTIVE-STREAM-ELEMENT-SIZE!@$ (S VALUE) NIL (INTERACTIVE-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INTERACTIVE-STREAM-ELEMENT-SIZE!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SET-OE-REF (OE I VALUE) NIL NIL NIL (LAMBDA (OE I VALUE) (DECLARE) (BLOCK SET-OE-REF (%32BIT-DEF OE I VALUE) VALUE)) NIL T T
:pinfo SET-RANDOM-STATE-DATA!@$ (S VALUE) NIL (RANDOM-STATE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-RANDOM-STATE-DATA!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo SET-FILE-STREAM-PEEK-CHAR-METHOD!@$ (S VALUE) NIL (FILE-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-FILE-STREAM-PEEK-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 12 VALUE))) NIL T T
:pinfo PCL-WALKER-MACRO-ORIGINAL-ARG-LIST (S) NIL (PCL-WALKER-MACRO) NIL (LAMBDA (S) (DECLARE) (BLOCK PCL-WALKER-MACRO-ORIGINAL-ARG-LIST (STRUCTURE-ELT S 1))) NIL T T
:pinfo CHARACTERP (X) NIL NIL NIL (LAMBDA (X) (DECLARE) (BLOCK CHARACTERP (%TAG= X TYPE-CHARACTER))) NIL T T
:pinfo DO-RUNTIME-LOAD-COMMANDS (FILENAME) NIL NIL NIL NIL NIL NIL T
:pinfo BQ-SIMPLIFY (X) NIL NIL NIL NIL NIL NIL T
:pinfo SET-RESTART-FUNCTION!@$ (S VALUE) NIL (RESTART T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-RESTART-FUNCTION!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T
:pinfo /= (&RESTV ARGS) NIL NIL NIL NIL NIL NIL T
:pinfo GET-STRING-BUFFER NIL NIL NIL NIL NIL NIL NIL T
:pinfo BQ-REMOVE-TOKENS (X) NIL NIL NIL NIL NIL NIL T
:pinfo SET-PACKAGE-SHADOWING-SYMBOLS!@$ (S VALUE) NIL (PACKAGE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PACKAGE-SHADOWING-SYMBOLS!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo DISASSEMBLE (FUNCTION) NIL NIL NIL NIL NIL NIL T
:pinfo FLUID-SYNONYM-STREAM-P!@$ (S) NIL NIL NIL NIL NIL NIL T
:pinfo ASIN (X) NIL NIL NIL (LAMBDA (X) (DECLARE) (BLOCK ASIN (DOUBLE_ASIN (FLOAT X)))) NIL T T
:pinfo SET-BROADCAST-STREAM-ELEMENT-TYPE!@$ (S VALUE) NIL (BROADCAST-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-BROADCAST-STREAM-ELEMENT-TYPE!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo SET-TWO-WAY-STREAM-READ-CHAR-METHOD!@$ (S VALUE) NIL (TWO-WAY-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-TWO-WAY-STREAM-READ-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 6 VALUE))) NIL T T
:pinfo LOOP-EMIT-BODY (FORM) NIL NIL NIL NIL NIL NIL T
:pinfo NREVERSE/LIST (L) NIL NIL NIL NIL NIL NIL T
:pinfo SET-CASE-FAILURE-NAME!@$ (S VALUE) NIL (CASE-FAILURE T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-CASE-FAILURE-NAME!@$ (SET-STRUCTURE-ELT S 4 VALUE))) NIL T T
:pinfo APROPOS-DESCRIBE-SYMBOL (SYMBOL) NIL NIL NIL NIL NIL NIL T
:pinfo INTERACTIVE-STREAM-WRITE-CHAR-METHOD (S) NIL (INTERACTIVE-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK INTERACTIVE-STREAM-WRITE-CHAR-METHOD (STRUCTURE-ELT S 5))) NIL T T
:pinfo MEMBER (X LIST &KEY TEST TEST-NOT (KEY (FUNCTION IDENTITY))) NIL NIL NIL NIL NIL NIL T
:pinfo SET-STREAM-ELEMENT-TYPE!@$ (S VALUE) NIL (STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STREAM-ELEMENT-TYPE!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo VECTOR-LENGTH (V) NIL (VECTOR) NIL NIL NIL NIL T
:pinfo TRUENAME (PATHNAME) NIL NIL NIL NIL NIL NIL T
:pinfo IOBUF-BASE (S) NIL NIL NIL (LAMBDA (S) (DECLARE) (BLOCK IOBUF-BASE (C-STRUCT-REF S IOBUF BASE))) NIL T T
:pinfo DPB/BIGNUM (VALUE SIZE POSITION N) NIL NIL NIL NIL NIL NIL T
:pinfo AREF (A &RESTV DIMS) NIL NIL NIL NIL NIL NIL T
:pinfo SET-STREAM-LISTEN-METHOD!@$ (S VALUE) NIL (STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STREAM-LISTEN-METHOD!@$ (SET-STRUCTURE-ELT S 14 VALUE))) NIL T T
:pinfo SET-ECHO-STRING-WRITE-CHAR-METHOD!@$ (S VALUE) NIL (ECHO-STRING T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-ECHO-STRING-WRITE-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo SET-INTERNAL-SIMPLE-TYPE-ERROR--DUMMY-SLOT-!@$ (S VALUE) NIL (SIMPLE-TYPE-ERROR T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-INTERNAL-SIMPLE-TYPE-ERROR--DUMMY-SLOT-!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo ELT/LIST (S I) NIL NIL NIL (LAMBDA (S I) (DECLARE) (BLOCK ELT/LIST (NTH I S))) NIL T T
:pinfo NINTH (LIST) NIL NIL NIL (LAMBDA (LIST) (DECLARE) (BLOCK NINTH (NTH 8 LIST))) NIL T T
:pinfo ARRAY-RANK (A) NIL (ARRAY) NIL NIL NIL NIL T
:pinfo CONSTRUCTOR-FOR-SERIOUS-CONDITION/1 (-DUMMY-SLOT-) NIL NIL NIL NIL NIL NIL T
:pinfo PACKAGE-STATIC-ABBREVIATION (S) NIL (PACKAGE) NIL (LAMBDA (S) (DECLARE) (BLOCK PACKAGE-STATIC-ABBREVIATION (STRUCTURE-ELT S 7))) NIL T T
:pinfo SET-USER-STREAM-LISTEN-METHOD!@$ (S VALUE) NIL (USER-STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-USER-STREAM-LISTEN-METHOD!@$ (SET-STRUCTURE-ELT S 14 VALUE))) NIL T T
:pinfo CONSTRUCTOR-FOR-CASE-FAILURE (&KEY (-DUMMY-SLOT- NIL) (DATUM NIL) (EXPECTED-TYPE NIL) (NAME NIL) (POSSIBILITIES NIL)) NIL NIL NIL (LAMBDA (&KEY (-DUMMY-SLOT- NIL) (DATUM NIL) (EXPECTED-TYPE NIL) (NAME NIL) (POSSIBILITIES NIL)) (DECLARE) (BLOCK CONSTRUCTOR-FOR-CASE-FAILURE (CONSTRUCTOR-FOR-CASE-FAILURE/5 -DUMMY-SLOT- DATUM EXPECTED-TYPE NAME POSSIBILITIES))) NIL T T
:pinfo ECHO-STRING-WRITE-CHAR-METHOD (S) NIL (ECHO-STRING) NIL (LAMBDA (S) (DECLARE) (BLOCK ECHO-STRING-WRITE-CHAR-METHOD (STRUCTURE-ELT S 5))) NIL T T
:pinfo COERCE-TO-LIST (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-PHYSICAL-PATHNAME-HOST!@$ (S VALUE) NIL (PHYSICAL-PATHNAME T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-PHYSICAL-PATHNAME-HOST!@$ (SET-STRUCTURE-ELT S 1 VALUE))) NIL T T
:pinfo PCL-WALKER-MACRO-EXPANSION-FUNCTION (S) NIL (PCL-WALKER-MACRO) NIL (LAMBDA (S) (DECLARE) (BLOCK PCL-WALKER-MACRO-EXPANSION-FUNCTION (STRUCTURE-ELT S 2))) NIL T T
:pinfo CONCAT-TO-STRING (ARGS) NIL NIL NIL NIL NIL NIL T
:pinfo PACKAGE-NICKNAMES-LIST (S) NIL (PACKAGE) NIL (LAMBDA (S) (DECLARE) (BLOCK PACKAGE-NICKNAMES-LIST (STRUCTURE-ELT S 6))) NIL T T
:pinfo COPY-COMPILER-MACRO (S) NIL NIL NIL NIL NIL NIL T
:pinfo TERMINAL-STREAM-OUTPUT-SINK (S) NIL (TERMINAL-STREAM) NIL (LAMBDA (S) (DECLARE) (BLOCK TERMINAL-STREAM-OUTPUT-SINK (STRUCTURE-ELT S 4))) NIL T T
:pinfo SET-STREAM-WRITE-CHAR-METHOD!@$ (S VALUE) NIL (STREAM T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-STREAM-WRITE-CHAR-METHOD!@$ (SET-STRUCTURE-ELT S 5 VALUE))) NIL T T
:pinfo LINE-SYMBOL-LINE (S) NIL NIL NIL NIL NIL NIL T
:finfo ALLOC_BYTES "alloc_bytes" (LEN TYPE) (S) (INT INT) (T)
:pinfo COPIER-NAME (S) NIL NIL NIL NIL NIL NIL T
:pinfo SET-ELT (SEQUENCE I VALUE) NIL NIL NIL NIL NIL NIL T
:pinfo SET-ECHO-STRING-ELEMENT-SIZE!@$ (S VALUE) NIL (ECHO-STRING T) NIL (LAMBDA (S VALUE) (DECLARE) (BLOCK SET-ECHO-STRING-ELEMENT-SIZE!@$ (SET-STRUCTURE-ELT S 2 VALUE))) NIL T T